~ruther/guix-local: gnu: glibc-hurd: Force mach/hurd/libpthread subdirs to build first.

9b5f498deff516a9799a132fb04b40fb9ccfd7a6 — Manolis Ragkousis 9 years ago f265a3c

gnu: glibc-hurd: Force mach/hurd/libpthread subdirs to build first.

* gnu/packages/base.scm (glibc/hurd)[arguments]: Replace 'build' phase.

Co-authored-by: Ludovic Court<C3><A8>s <ludo@gnu.org>

patch browse .tar.gz

1 files changed, 15 insertions(+), 1 deletions(-)

M gnu/packages/base.scm

M gnu/packages/base.scm => gnu/packages/base.scm +15 -1

@@ 715,7 715,21 @@ with the Linux kernel.")
              ;; Use the right 'pwd'.
              (substitute* "configure"
                (("/bin/pwd") "pwd")))
-          ,original-phases)))
+           (alist-replace
+            'build
+            (lambda _
+              ;; Force mach/hurd/libpthread subdirs to build first in order to avoid
+              ;; linking errors.
+              ;; See <https://lists.gnu.org/archive/html/bug-hurd/2016-11/msg00045.html>
+              (let ((-j (list "-j" (number->string (parallel-job-count)))))
+                (let-syntax ((make (syntax-rules ()
+                                     ((_ target)
+                                      (zero? (apply system* "make" target -j))))))
+                  (and (make "mach/subdir_lib")
+                       (make "hurd/subdir_lib")
+                       (make "libpthread/subdir_lib")
+                       (zero? (apply system* "make" -j))))))
+            ,original-phases))))
         ((#:configure-flags original-configure-flags)
         `(append (list "--host=i586-pc-gnu"