guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: gnu: retroarch: Fix building on armhf-linux.


From: Efraim Flashner
Subject: 02/02: gnu: retroarch: Fix building on armhf-linux.
Date: Thu, 13 Sep 2018 11:40:44 -0400 (EDT)

efraim pushed a commit to branch master
in repository guix.

commit f21967a44bbd948846bdd1bbc370d3d0e3b52185
Author: Efraim Flashner <address@hidden>
Date:   Thu Sep 13 18:40:02 2018 +0300

    gnu: retroarch: Fix building on armhf-linux.
    
    * gnu/packages/emulators.scm (retroarch)[arguments]: Add custom flags
    when building for armhf-linux.
---
 gnu/packages/emulators.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index f21c322..782bff5 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -1066,7 +1066,7 @@ emulation community.  It provides highly accurate 
emulation.")
         (base32 "0h6y2hpjg4b470jvn9ghwp0k3a527sbb6xhia17frlm9w9v5028w"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f                      ; no tests
+     `(#:tests? #f                      ; no tests
        #:phases
        (modify-phases %standard-phases
          (replace 'configure
@@ -1086,10 +1086,14 @@ emulation community.  It provides highly accurate 
emulation.")
                  (("<compat/zlib.h>") "<zlib.h>"))
                ;; The configure script does not yet accept the extra arguments
                ;; (like ‘CONFIG_SHELL=’) passed by the default configure phase.
-               (zero? (system*
-                       "./configure"
-                       (string-append "--prefix=" out)
-                       (string-append "--global-config-dir=" etc)))))))))
+               (invoke
+                 "./configure"
+                 ,@(if (string-prefix? "armhf" (or (%current-target-system)
+                                                  (%current-system)))
+                       '("--enable-neon" "--enable-floathard")
+                       '())
+                 (string-append "--prefix=" out)
+                 (string-append "--global-config-dir=" etc))))))))
     (inputs
      `(("alsa-lib" ,alsa-lib)
        ("ffmpeg" ,ffmpeg)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]