Hi Ludo,
On Fri, 04 Nov 2016 15:37:52 +0100
l...@gnu.org (Ludovic Courtès) wrote:
> You should now be able to add #:use-module (gnu packages cross-base) in
> admin.scm.
Yes. However, now I get
In unknown file:
?: 18 [primitive-load "/x/home/dannym/src/guix/scripts/guix"]
In guix/ui.scm:
1220: 17 [run-guix-command package "-i" ...]
In ice-9/boot-9.scm:
157: 16 [catch srfi-34 #<procedure 1eb57a0 at guix/ui.scm:426:2 ()> ...]
157: 15 [catch system-error ...]
In guix/scripts/package.scm:
898: 14 [#<procedure 1eb57c0 at guix/scripts/package.scm:886:4 ()>]
865: 13 [process-actions #<build-daemon 256.15 1ebea40> (# # # # ...)]
In guix/ui.scm:
706: 12 [show-manifest-transaction # # # ...]
In srfi/srfi-1.scm:
601: 11 [map #<procedure upgrade-string (name old-version new-version output
item)> ...]
In guix/ui.scm:
664: 10 [upgrade-string "sunxi-tools" "1.4.1" ...]
In guix/packages.scm:
1141: 9 [package-output # # "out" ...]
793: 8 [cache! #<weak-key-hash-table 189ae40 169/223> # # ...]
1099: 7 [thunk]
793: 6 [cache! #<weak-key-hash-table 189ab40 172/223> # # ...]
894: 5 [thunk]
In ice-9/eval.scm:
387: 4 [eval # #]
387: 3 [eval # #]
387: 2 [eval # #]
387: 1 [eval # #]
In unknown file:
?: 0 [struct-ref #<syntax-transformer glibc> 1]
ERROR: In procedure struct-ref:
ERROR: In procedure struct-ref: Wrong type argument in position 1 (expecting
struct): #<syntax-transformer glibc>
with:
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 1d577c7..44ab171 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -43,6 +43,8 @@
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages base)
+ #:use-module (gnu packages cross-base)
+; #:use-module ((gnu packages cross-base) #:select (cross-gcc cross-binutils
cross-libc))
#:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages readline)
@@ -1874,7 +1876,11 @@ Kerberos and Heimdal and FAST is supported with recent
MIT Kerberos.")
'(delete-file-recursively "bin"))
(file-name (string-append name "-" version ".tar.gz"))))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ `(("pkg-config" ,pkg-config)
+ ("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf"))
+ ("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf" #:libc (cross-libc
"arm-linux-gnueabihf")))
+ ;("cross-libc" ,(cross-libc "arm-linux-gnueabihf"))
+))
(inputs
`(("libusb" ,libusb)))
(build-system gnu-build-system)
@@ -1882,7 +1888,7 @@ Kerberos and Heimdal and FAST is supported with recent
MIT Kerberos.")
`(#:tests? #f ; no tests exist
#:make-flags (list (string-append "PREFIX="
(assoc-ref %outputs "out"))
- "CROSS_COMPILE="
+ "CROSS_COMPILE=arm-linux-gnueabihf-"
