nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: gcl: Ensure gcc and binutils are available at runtime. 

* gnu/packages/lisp.scm (gcl)[arguments]: Add -fgnu89-inline to CFLAGS.
Add GCC path to make-flags. Modify 'pre-conf' phase. Add 'wrap' phase.
This commit is contained in:
Kei Kebreau 2017-07-08 17:36:29 -04:00
parent ebc9f7050c
commit 5ea8dbf0c9
No known key found for this signature in database
GPG Key ID: E6A5EE3C19467A0D
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/lisp.scm
View File

@ -88,6 +88,10 @@
`(#:parallel-build? #f ; The build system seems not to be thread safe. `(#:parallel-build? #f ; The build system seems not to be thread safe.
#:tests? #f ; There does not seem to be make check or anything similar. #:tests? #f ; There does not seem to be make check or anything similar.
#:configure-flags '("--enable-ansi") ; required for use by the maxima package #:configure-flags '("--enable-ansi") ; required for use by the maxima package
#:make-flags (list
"CFLAGS=-fgnu89-inline" ; removes inline function warnings
(string-append "GCC=" (assoc-ref %build-inputs "gcc")
"/bin/gcc"))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'pre-conf (add-before 'configure 'pre-conf
(lambda _ (lambda _
@ -104,6 +108,27 @@
(string-append "SHELL=" (which "bash"))) (string-append "SHELL=" (which "bash")))
(("SHELL=/bin/sh") (("SHELL=/bin/sh")
(string-append "SHELL=" (which "sh")))) (string-append "SHELL=" (which "sh"))))
(substitute* "h/linux.defs"
(("#CC") "CC")
(("-fwritable-strings") "")
(("-Werror") ""))
#t))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((gcl (assoc-ref outputs "out"))
(input-path (lambda (lib path)
(string-append
(assoc-ref inputs lib) path)))
(binaries '("binutils")))
;; GCC and the GNU binutils are necessary for GCL to be
;; able to compile Lisp functions and programs (this is
;; a standard feature in Common Lisp). While the
;; the location of GCC is specified in the make-flags,
;; the GNU binutils must be available in GCL's $PATH.
(wrap-program (string-append gcl "/bin/gcl")
`("PATH" prefix ,(map (lambda (binary)
(input-path binary "/bin"))
binaries))))
#t)) #t))
;; drop strip phase to make maxima build, see ;; drop strip phase to make maxima build, see
;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html ;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html