~ruther/guix-local: gnu: libatasmart: Fix cross-compiling to riscv64-linux.

d9e693df75ffb8f0333c990d947540261613f72b — Zheng Junjie 2 years ago 9fa8c53

gnu: libatasmart: Fix cross-compiling to riscv64-linux.

* gnu/packages/freedesktop.scm (libatasmart)
[native-inputs]: When cross compiling to riscv64-linux-gnu, add config.
[arguments]: When target riscv64-linux-gnu, add update-config phase.

Change-Id: I491c43a6ce2c3fc3aed43ecab9d4a2ab251038bb
Signed-off-by: Christopher Baines <mail@cbaines.net>

patch browse .tar.gz

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

M gnu/packages/freedesktop.scm

M gnu/packages/freedesktop.scm => gnu/packages/freedesktop.scm +19 -1

@@ 1525,7 1525,25 @@ formats.")
                 "138gvgdwk6h4ljrjsr09pxk1nrki4b155hqdzyr8mlk3bwsfmw31"))))
     (build-system gnu-build-system)
     (native-inputs
-     (list pkg-config))
+     (append (if (and (%current-target-system)
+                      (target-riscv64?))
+                 (list config)
+                 '())
+             (list pkg-config)))
+    (arguments
+     (if (and (%current-target-system)
+              (target-riscv64?))
+         (list #:phases
+               #~(modify-phases %standard-phases
+                   (add-after 'unpack 'update-config
+                     (lambda* (#:key native-inputs inputs #:allow-other-keys)
+                       (for-each (lambda (file)
+                                   (install-file
+                                    (search-input-file
+                                     (or native-inputs inputs)
+                                     (string-append "/bin/" file)) "build-aux"))
+                                 '("config.guess" "config.sub"))))))
+         '()))
     (inputs
      (list eudev))
     (home-page "https://0pointer.de/blog/projects/being-smart.html")