06/09: gnu: fpc: Add support for powerpc64le-linux.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 617e3dd2ae14bef085756cdf8fa43d683aa13b2f
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri Dec 15 15:41:07 2023 +0200

    gnu: fpc: Add support for powerpc64le-linux.
    
    * gnu/packages/pascal.scm (fpc-bootstrap-powerpc64le): New variable.
    (fpc)[arguments]: Add cases for powerpc64le-linux.
    [native-inputs]: Add case for fpc-binary for powerpc64le-linux.
    
    Change-Id: I4f12003b35ef60764e7e25cc14aed7d243c6fe0f
---
 gnu/packages/pascal.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/pascal.scm b/gnu/packages/pascal.scm
index 89a1734e38..419bee1fab 100644
--- a/gnu/packages/pascal.scm
+++ b/gnu/packages/pascal.scm
@@ -65,6 +65,15 @@
      (base32
       "1zhdypm99bzs5706g4nxwajiadv82jwd87cr300lrivy1rzj5h4a"))))
 
+(define fpc-bootstrap-powerpc64le
+  (origin
+    (method url-fetch)
+    (uri (string-append "mirror://sourceforge/freepascal/Linux/"
+                        %fpc-version "/fpc-" %fpc-version 
".powerpc64le-linux.tar"))
+    (sha256
+     (base32
+      "12p3lmi1vn7agpw4pipp6ra8r85319sjcvbzh7z6kangmry7vic3"))))
+
 (define fpc-bootstrap-x86_64
   (origin
     (method url-fetch)
@@ -101,7 +110,8 @@
                   (rename-file "install-man" "install/man")
                   (delete-file "fpcsrc/tests/utils/dosbox/exitcode.exe")))))
     (build-system gnu-build-system)
-    (supported-systems '("i686-linux" "x86_64-linux" "powerpc-linux"))
+    (supported-systems '("i686-linux" "x86_64-linux"
+                         "powerpc-linux" "powerpc64le-linux"))
     (inputs
      (list expat glibc ncurses zlib))
     (native-inputs
@@ -109,8 +119,8 @@
      `(("fpc-binary" ,(match (or (%current-target-system)
                                  (%current-system))
                        ("i686-linux" fpc-bootstrap-i386)
-                       ;;("powerpc64le-linux" fpc-bootstrap-ppc64le)
                        ("powerpc-linux" fpc-bootstrap-powerpc)
+                       ("powerpc64le-linux" fpc-bootstrap-powerpc64le)
                        ("x86_64-linux" fpc-bootstrap-x86_64)
                        ;; XXX: Wrong, but innocuous so long
                        ;; `supported-systems' is kept in sync.
@@ -123,6 +133,7 @@
              (arch ,(cond
                       ((target-x86-32?) "i386")
                       ((target-ppc32?) "powerpc")
+                      ((target-ppc64le?) "powerpc64")
                       ((target-x86-64?) "x86_64")
                       (else "unknown"))))
          (modify-phases %standard-phases
@@ -211,6 +222,7 @@
                      (suffix ,(cond
                                 ((target-x86-32?) "386")
                                 ((target-ppc32?) "ppc")
+                                ((target-ppc64le?) "ppc64")
                                 ((target-x86-64?) "x64")
                                 (else "")))
                      (ppc (string-append "ppc" suffix)))