01/03: gnu: libjpeg-turbo: Fix build on mips.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit e90a706e1686aaf3a1004683be8a3f3a4cbaf22e
Author: Efraim Flashner <address@hidden>
Date:   Tue Dec 13 10:04:11 2016 +0200

    gnu: libjpeg-turbo: Fix build on mips.
    
    * gnu/packages/image.scm (libjpeg-turbo)[arguments]: Add substitution to
    set variable type before use.
---
 gnu/packages/image.scm |   12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 4967f83..7429e9b 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -1068,7 +1068,17 @@ PNG, and performs PNG integrity checks and corrections.")
     (native-inputs
      `(("nasm" ,nasm)))
     (arguments
-     `(#:test-target "test"))
+     '(#:test-target "test"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'set-env-on-MIPS
+           ;; This is borrowed from Debian's patchset for libjpeg
+           ;; 
https://sources.debian.net/data/main/libj/libjpeg-turbo/1:1.5.1-2/debian/patches/0001-Declare-env-on-MIPS-on-first-use-Courtesy-of-Aurelie.patch
+           (lambda _
+             (substitute* "simd/jsimd_mips.c"
+               (("env = getenv\\(\"JSIMD_FORCEDSPR2")
+                "char *env = getenv\(\"JSIMD_FORCEDSPR2"))
+             #t)))))
     (home-page "http://www.libjpeg-turbo.org/";)
     (synopsis "SIMD-accelerated JPEG image handling library")
     (description "libjpeg-turbo is a JPEG image codec that accelerates baseline