GNU bug report logs - #35753
[PATCH] gnu: mes: Prepare for non-x86 architectures.

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Danny Milosavljevic <dannym <at> scratchpost.org>
To: guix-patches <at> gnu.org
Cc: Danny Milosavljevic <dannym <at> scratchpost.org>
Subject: [PATCH] gnu: mes: Prepare for non-x86 architectures.
Date: Wed, 15 May 2019 17:42:01 +0200

* gnu/packages/mes.scm (mes)[native-inputs]: Prepare for non-x86
architectures.
---
 gnu/packages/mes.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm
index c45e267875..5c6b64150b 100644
--- a/gnu/packages/mes.scm
+++ b/gnu/packages/mes.scm
@@ -78,13 +78,16 @@ extensive examples, including parsers for the Javascript and C99 languages.")
          ("nyacc" ,nyacc)))
       (native-inputs
        `(("guile" ,guile-2.2)
-         ,@(if (not (string-prefix? "i686-linux" (or (%current-target-system)
-                                                     (%current-system))))
+         ,@(let ((target-system (or (%current-target-system)
+                                    (%current-system))))
+             (cond
+              ((string-prefix? "x86_64-linux" target-system)
                ;; Use cross-compiler rather than #:system "i686-linux" to get
                ;; MesCC 64 bit .go files installed ready for use with Guile.
                `(("i686-linux-binutils" ,(cross-binutils triplet))
-                 ("i686-linux-gcc" ,(cross-gcc triplet)))
-               '())
+                 ("i686-linux-gcc" ,(cross-gcc triplet))))
+              (else
+               '())))
          ("graphviz" ,graphviz)
          ("help2man" ,help2man)
          ("perl" ,perl)                 ; build-aux/gitlog-to-changelog

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.