summary refs log tree commit diff
path: root/gnu/packages/cross-base.scm
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2023-03-20 23:10:40 +0100
committerLudovic Courtès <ludo@gnu.org>2023-03-30 12:44:19 +0200
commit9a787edb9c973f8ddf7e6c1df9b57a04c3967891 (patch)
tree3c062b42aebb5f7667079d7e9c2518c8ab13cb28 /gnu/packages/cross-base.scm
parenta16a9c5a7b1f5ecc1b462fb4a5785a2adefba211 (diff)
downloadguix-9a787edb9c973f8ddf7e6c1df9b57a04c3967891.tar.gz
gnu: cross-base: Add cross arguments to hurd derivatives.
* gnu/packages/cross-base.scm (cross-kernel-headers*): Add --build and --host to
xhurd-headers and xhurd-minimal.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/packages/cross-base.scm')
-rw-r--r--gnu/packages/cross-base.scm13
1 files changed, 12 insertions, 1 deletions
diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm
index 2a7c4d8011..bda494fd02 100644
--- a/gnu/packages/cross-base.scm
+++ b/gnu/packages/cross-base.scm
@@ -458,10 +458,17 @@ the base compiler.  Use XBINUTILS as the associated cross-Binutils."
       (name (string-append (package-name hurd-headers)
                            "-cross-" target))
 
+      (arguments
+       (substitute-keyword-arguments (package-arguments hurd-headers)
+         ((#:configure-flags flags)
+          `(cons* ,(string-append "--build=" (%current-system))
+                  ,(string-append "--host=" target)
+                  ,flags))))
+
       (native-inputs `(("cross-gcc" ,xgcc)
                        ("cross-binutils" ,xbinutils)
                        ("cross-mig" ,xmig)
-                       ,@(alist-delete "mig"(package-native-inputs hurd-headers))))))
+                       ,@(alist-delete "mig" (package-native-inputs hurd-headers))))))
 
   (define xglibc/hurd-headers
     (package
@@ -506,6 +513,10 @@ the base compiler.  Use XBINUTILS as the associated cross-Binutils."
                         (guix build utils)
                         (srfi srfi-26))
              ,@(package-arguments hurd-minimal))
+         ((#:configure-flags flags)
+          `(cons* ,(string-append "--build=" (%current-system))
+                  ,(string-append "--host=" target)
+                  ,flags))
          ((#:phases phases)
           `(modify-phases ,phases
              (add-before 'configure 'set-cross-headers-path