ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 20:27:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gexp: 'compiled-modules' defaults to '-O1'.

Browse source 
* guix/gexp.scm (compiled-modules): Add #:optimization-level.
[build](optimizations-for-level): New variable.
(process-entry): Use it.
This commit is contained in:
Ludovic Courtès 2020-08-26 16:01:37 +02:00
parent 3c6113a594
commit 331a09654e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/gexp.scm
View file

@ -1507,7 +1507,8 @@ (define* (compiled-modules modules
(guile (%guile-for-build))
(module-path %load-path)
(extensions '())
(deprecation-warnings #f))
(deprecation-warnings #f)
(optimization-level 1))
"Return a derivation that builds a tree containing the `.go' files
corresponding to MODULES. All the MODULES are built in a context where
they can refer to each other. When TARGET is true, cross-compile MODULES for
@ -1531,6 +1532,13 @@ (define build
(system base target)
(system base compile))
(define optimizations-for-level
(or (and=> (false-if-exception
(resolve-interface '(system base optimize)))
(lambda (iface)
(module-ref iface 'optimizations-for-level))) ;Guile 3.0
(const '())))
(define (regular? file)
(not (member file '("." ".."))))
@ -1551,7 +1559,9 @@ (define (process-entry entry output processed)
(compile-file entry
#:output-file output
#:opts
%auto-compilation-options)))
`(,@%auto-compilation-options
,@(optimizations-for-level
(ungexp optimization-level))))))
(+ 1 processed))))