01/04: gnu: libelf: Support aarch64.

[Efraim Flashner]

efraim pushed a commit to branch core-updates
in repository guix.

commit eb9a603317c4b8a77079f0a9ebd3ea802a0ed8df
Author: Efraim Flashner <address@hidden>
Date:   Tue Feb 21 19:57:50 2017 +0200

    gnu: libelf: Support aarch64.
    
    * gnu/packages/elf.scm (libelf)[arguments]: Modify custom configure
    phase to declare host type on aarch64.
---
 gnu/packages/elf.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm
index 35b6449..95ba761 100644
--- a/gnu/packages/elf.scm
+++ b/gnu/packages/elf.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
 ;;; Copyright © 2015 Andreas Enge <address@hidden>
+;;; Copyright © 2017 Efraim Flashner <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -78,7 +79,7 @@ addr2line, and more.")
               (base32
                "0vf7s9dwk2xkmhb79aigqm0x0yfbw1j0b9ksm51207qwr179n6jr"))))
     (build-system gnu-build-system)
-    (arguments '(#:phases (alist-replace
+    (arguments `(#:phases (alist-replace
                            'configure
                            (lambda* (#:key outputs #:allow-other-keys)
                              ;; This old `configure' script doesn't support
@@ -87,7 +88,12 @@ addr2line, and more.")
                                (setenv "CONFIG_SHELL" (which "bash"))
                                (zero?
                                 (system* "./configure"
-                                         (string-append "--prefix=" out)))))
+                                         (string-append "--prefix=" out)
+                                       ,@(if (string=? "aarch64-linux"
+                                                       (%current-system))
+                                             
'("--host=aarch64-unknown-linux-gnu")
+                                             '())
+                         ))))
                            %standard-phases)))
     (home-page "http://www.mr511.de/software/english.html";)
     (synopsis "ELF object file access library")