summary refs log tree commit diff
path: root/gnu/packages/ada.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2021-07-18 12:03:29 +0300
committerEfraim Flashner <efraim@flashner.co.il>2021-07-18 12:03:29 +0300
commite4b70bc55a538569465bcedee19d1f2607308e65 (patch)
tree3ea36860abf912689aabb1b9eca78d6f4139c278 /gnu/packages/ada.scm
parentf8e544445ffdfc4ea6fc1192e9403fb9c95f8c53 (diff)
downloadguix-e4b70bc55a538569465bcedee19d1f2607308e65.tar.gz
gnu: ada-ed: Adjust target system.
* gnu/packages/ada.scm (ada-ed)[arguments]: Only set the target system
when necessary.
[supported-systems]: Add powerpc-linux.
Diffstat (limited to 'gnu/packages/ada.scm')
-rw-r--r--gnu/packages/ada.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/packages/ada.scm b/gnu/packages/ada.scm
index d24aa2b168..edd623be9d 100644
--- a/gnu/packages/ada.scm
+++ b/gnu/packages/ada.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
 ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -48,17 +49,20 @@
        (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (supported-systems (list "i686-linux" "x86_64-linux"
-                             "armhf-linux" "aarch64-linux"))
+                             "armhf-linux" "aarch64-linux"
+                             "powerpc-linux"))
     (outputs (list "out" "debug"))
     (arguments
      `(#:system
        ,@(match (%current-system)
            ;; This package predates 64-bit PCs: a ‘64-bit’ adaexec segfaults.
            ;; Force a 32-bit build targeting a similar architecture.
-           ((or "armhf-linux" "aarch64-linux")
+           ("aarch64-linux"
             `("armhf-linux"))
+           ("x86_64-linux"
+            `("i686-linux"))
            (_
-            `("i686-linux")))
+            (list (%current-system))))
        #:make-flags
        (let ((out (assoc-ref %outputs "out")))
          (list (string-append