efraim pushed a commit to branch master
in repository guix.

commit 188da31fe5305a960bea88e1452ceeccfb53e1de
Author: Zheng Junjie <[email protected]>
AuthorDate: Sun Jun 4 14:55:11 2023 +0300

    gnu: mtdev: Fix cross-compiling to riscv64.
    
    * gnu/packages/xdisorg.scm (mtdev)[arguments]: When cross-compiling to
    riscv64 add a phase to update config.{guess,sub}.
    [native-inputs]: When cross-compiling to riscv64 add config.
---
 gnu/packages/xdisorg.scm | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 462ac082f5..b8671d1cf6 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -41,7 +41,7 @@
 ;;; Copyright © 2020 Gabriel Arazas <[email protected]>
 ;;; Copyright © 2020 James Smith <[email protected]>
 ;;; Copyright © 2020 B. Wilson <[email protected]>
-;;; Copyright © 2020, 2021 Zheng Junjie <[email protected]>
+;;; Copyright © 2020, 2021, 2023 Zheng Junjie <[email protected]>
 ;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <[email protected]>
 ;;; Copyright © 2021, 2022 Nicolas Goaziou <[email protected]>
 ;;; Copyright © 2021 Xinglu Chen <[email protected]>
@@ -768,7 +768,28 @@ and Matrox.")
          (base32
           "1q700h9dqcm3zl6c3gj0qxxjcx6ibw2c51wjijydhwdcm26v5mqm"))))
     (build-system gnu-build-system)
-    (arguments '(#:configure-flags '("--disable-static")))
+    (arguments
+     `(#:configure-flags
+       '("--disable-static")
+       ,@(if (and (target-riscv64?)
+                  (%current-target-system))
+           `(#:phases
+             (modify-phases %standard-phases
+               (add-after 'unpack 'update-config-scripts
+                 (lambda* (#:key inputs native-inputs #:allow-other-keys)
+                   ;; Replace outdated config.guess and config.sub.
+                   (for-each (lambda (file)
+                               (install-file
+                                 (search-input-file
+                                   (or native-inputs inputs)
+                                   (string-append "/bin/" file)) 
"./config-aux"))
+                             '("config.guess" "config.sub"))))))
+           '())))
+    (native-inputs
+     (if (and (target-riscv64?)
+              (%current-target-system))
+       (list config)
+       '()))
     (home-page "https://bitmath.org/code/mtdev/";)
     (synopsis "Multitouch protocol translation library")
     (description "Mtdev is a stand-alone library which transforms all

Reply via email to