02/08: gnu: mig: Define 'mig/32-bit'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6530f5367c1ba0ef4de59d865c0aaa184f868f5a
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Oct 10 22:26:14 2020 +0200

    gnu: mig: Define 'mig/32-bit'.
    
    * gnu/packages/hurd.scm (mig/32-bit): New variable.
    (hurd)[native-inputs]: Use it.  Previous inline variant would drop the
    'patch-non-shebang-references' phase.
---
 gnu/packages/hurd.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 98fe594..47c7e17 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -157,6 +157,17 @@ for other software in the GNU system that uses Mach-based 
inter-process
 communication.")
     (license gpl2+)))
 
+(define-public mig/32-bit
+  ;; When cross-compiling from x86_64-linux to i586-gnu, we need this 32-bit
+  ;; native MIG.
+  (package
+    (inherit mig)
+    (arguments
+     (substitute-keyword-arguments (package-arguments mig)
+       ((#:system _ #f)
+        "i686-linux")))
+    (properties `((hidden? . #t)))))
+
 (define-public hurd-headers
   ;; Resort to a post-0.9 snapshot that provides the 'file_utimens' and
   ;; 'file_exec_paths' RPCs that glibc 2.28 expects.
@@ -536,9 +547,7 @@ exec ${system}/rc \"$@\"
        ("mig" ,(if (%current-target-system)
                    ;; XXX: When targeting i586-pc-gnu, we need a 32-bit MiG,
                    ;; hence this hack.
-                   (package
-                     (inherit mig)
-                     (arguments `(#:system "i686-linux")))
+                   mig/32-bit
                    mig))
        ("perl" ,perl)
        ("texinfo" ,texinfo-4)