02/02: gnu: libepoxy: Fix tests on arm.

[Mark H. Weaver]

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

commit 9bbd52e5366cb35406082a0289b3ce7ff164b9f3
Author: Mark H Weaver <address@hidden>
Date:   Mon Apr 13 01:15:08 2015 -0400

    gnu: libepoxy: Fix tests on arm.
    
    * gnu/packages/gl.scm (libepoxy)[arguments]: When building for arm,
      patch test/dlwrap.c to fix the tests.
---
 gnu/packages/gl.scm |   14 ++++++++++++--
 1 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm
index f3e6318..e640f83 100644
--- a/gnu/packages/gl.scm
+++ b/gnu/packages/gl.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2013 Andreas Enge <address@hidden>
 ;;; Copyright © 2013 Joshua Grant <address@hidden>
 ;;; Copyright © 2014 David Thompson <address@hidden>
-;;; Copyright © 2014 Mark H Weaver <address@hidden>
+;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -434,7 +434,7 @@ OpenGL graphics API.")
                (base32
                 "1xp8g6b7xlbym2rj4vkbl6xpb7ijq7glpv656mc7k9b01x22ihs2"))))
     (arguments
-     '(#:phases
+     `(#:phases
        (alist-cons-after
         'unpack 'autoreconf
         (lambda _
@@ -449,6 +449,16 @@ OpenGL graphics API.")
              (substitute* (find-files "." "\\.[ch]$")
                (("libGL.so.1") (string-append mesa "/lib/libGL.so.1"))
                (("libEGL.so.1") (string-append mesa "/lib/libEGL.so.1")))
+
+             ;; XXX On armhf systems, we must add "GLIBC_2.4" to the list of
+             ;; versions in test/dlwrap.c:dlwrap_real_dlsym.  It would be
+             ;; better to make this a normal patch, but for now we do it here
+             ;; to prevent rebuilding on other platforms.
+             ,@(if (string-prefix? "arm" (or (%current-target-system)
+                                             (%current-system)))
+                   '((substitute* '"test/dlwrap.c"
+                       (("\"GLIBC_2\\.0\"") "\"GLIBC_2.0\", \"GLIBC_2.4\"")))
+                   '())
              #t))
          %standard-phases))))
     (build-system gnu-build-system)