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

[Manolis Fragkiskos Ragkousis]

phant0mas pushed a commit to branch core-updates
in repository guix.

commit 9b5f498deff516a9799a132fb04b40fb9ccfd7a6
Author: Manolis Ragkousis <address@hidden>
Date:   Sun Nov 13 15:19:46 2016 +0200

    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 <address@hidden>
---
 gnu/packages/base.scm |   16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 8aa4269..9fb8c3a 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -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"