From b368c9c2c9948d32bb9167cd4e07aa4d49fa2d44 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <address@hidden>
Date: Wed, 30 Mar 2016 18:03:53 +0300
Subject: [PATCH] gnu: gst-plugins-base: Don't build with orc on arm/mips
 architectures.

* gnu/packages/gstreamer.scm (gst-plugins-base)[inputs]: Only use orc as
an input on armhf or mips architectures.
---
 gnu/packages/gstreamer.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm
index 5cf59cd..3694e6c 100644
--- a/gnu/packages/gstreamer.scm
+++ b/gnu/packages/gstreamer.scm
@@ -58,7 +58,9 @@
   #:use-module (gnu packages tls)
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages yasm)
-  #:use-module (gnu packages xml))
+  #:use-module (gnu packages xml)
+  #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26))
 
 (define-public orc
   (package
@@ -160,7 +162,14 @@ This package provides the core library and elements.")
      `(("gstreamer" ,gstreamer))) ; required by gstreamer-plugins-base-1.0.pc
     (inputs
      `(("cdparanoia" ,cdparanoia)
-       ("orc" ,orc)
+       ;; FIXME: On arm the orc related tests fail, and on mips "orc" fails to
+       ;; build.  For the time being we are disabling "orc" as an input on
+       ;; these architectures.
+       ,@(if (any (cute string-prefix? <> (or (%current-target-system)
+                                              (%current-system)))
+                  '("arm" "mips"))
+           '()
+           `(("orc" ,orc)))
        ("pango" ,pango)
        ("libogg" ,libogg)
        ("libtheora" ,libtheora)
-- 
2.8.0.rc3