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
This commit is contained in:
Efraim Flashner 2023-12-15 15:41:07 +02:00
parent 2b501ed730
commit 617e3dd2ae
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -65,6 +65,15 @@ (define fpc-bootstrap-powerpc
(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 @@ (define-public fpc
(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 @@ (define-public fpc
`(("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 @@ (define-public fpc
(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 @@ (define-public fpc
(suffix ,(cond
((target-x86-32?) "386")
((target-ppc32?) "ppc")
((target-ppc64le?) "ppc64")
((target-x86-64?) "x64")
(else "")))
(ppc (string-append "ppc" suffix)))