From 476cdbba3f65e3ba433da4853ffac3ee1fe2081f Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 16 Aug 2016 22:59:20 -0400 Subject: PRELIMINARY: Orc fixes on MIPS. --- gnu/packages/gstreamer.scm | 37 ++++++++++++++++++++++++++++++------- 1 file changed, 30 insertions(+), 7 deletions(-) diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm index a39a3b434d..b78c7322cd 100644 --- a/gnu/packages/gstreamer.scm +++ b/gnu/packages/gstreamer.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013, 2015 Andreas Enge ;;; Copyright © 2014 John Darrington ;;; Copyright © 2015, 2016 Sou Bunnbu -;;; Copyright © 2015 Mark H Weaver +;;; Copyright © 2015, 2016 Mark H Weaver ;;; Copyright © 2016 Efraim Flashner ;;; ;;; This file is part of GNU Guix. @@ -82,7 +82,15 @@ (define-public orc (substitute* '("testsuite/test-limits.c" "testsuite/exec_opcodes_sys.c") (("if \\(error\\) return 1;") - "if (error) return 77;"))) + "if (error) return 77;")) + + ;; On MIPS, disable the 'test_parse' test, which assumes + ;; that compilation is supported. As of orc-0.4.25, + ;; compilation is not supported on MIPS. + ,@(if (string-prefix? "mips" (%current-system)) + '((substitute* "testsuite/test_parse.c" + (("return 1;") "return 77;"))) + '())) %standard-phases))) (home-page "http://code.entropywave.com/orc/") (synopsis "Oil runtime compiler") @@ -160,7 +168,10 @@ (define-public gst-plugins-base `(("gstreamer" ,gstreamer))) ; required by gstreamer-plugins-base-1.0.pc (inputs `(("cdparanoia" ,cdparanoia) - ("orc" ,orc) + ,@(if (not (string-prefix? "mips" (or (%current-target-system) + (%current-system)))) + `(("orc" ,orc)) + '()) ("pango" ,pango) ("libogg" ,libogg) ("libtheora" ,libtheora) @@ -225,7 +236,10 @@ (define-public gst-plugins-good ("libshout" ,libshout) ("libsoup" ,libsoup) ("libvpx" ,libvpx) - ("orc" ,orc) + ,@(if (not (string-prefix? "mips" (or (%current-target-system) + (%current-system)))) + `(("orc" ,orc)) + '()) ("pulseaudio" ,pulseaudio) ("speex" ,speex) ("taglib" ,taglib) @@ -322,7 +336,10 @@ (define-public gst-plugins-bad ("openjpeg" ,openjpeg) ("openssl" ,openssl) ("opus" ,opus) - ("orc" ,orc) + ,@(if (not (string-prefix? "mips" (or (%current-target-system) + (%current-system)))) + `(("orc" ,orc)) + '()) ("qt" ,qt) ("soundtouch" ,soundtouch) ("wayland" ,wayland))) @@ -359,7 +376,10 @@ (define-public gst-plugins-ugly ;; TODO: ;; * opencore-amr (for the AMR-NB decoder and encoder and the ;; AMR-WB decoder) - ("orc" ,orc))) + ,@(if (not (string-prefix? "mips" (or (%current-target-system) + (%current-system)))) + `(("orc" ,orc)) + '()))) (native-inputs `(("glib:bin" ,glib "bin") ("pkg-config" ,pkg-config) @@ -399,7 +419,10 @@ (define-public gst-libav (inputs `(("gst-plugins-base" ,gst-plugins-base) ("ffmpeg" ,ffmpeg) - ("orc" ,orc) + ,@(if (not (string-prefix? "mips" (or (%current-target-system) + (%current-system)))) + `(("orc" ,orc)) + '()) ("zlib" ,zlib))) (home-page "http://gstreamer.freedesktop.org/") (synopsis "Plugins for the GStreamer multimedia library") -- cgit v1.2.3