me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/gexp.scm (compiled-modules): Add #:optimization-level.
[build](optimizations-for-level): New variable.
(process-entry): Use it.
master
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 @@ last one is created from the given <scheme-file> object."
(guile (%guile-for-build)) (guile (%guile-for-build))
(module-path %load-path) (module-path %load-path)
(extensions '()) (extensions '())
(deprecation-warnings #f)) (deprecation-warnings #f)
(optimization-level 1))
"Return a derivation that builds a tree containing the `.go' files "Return a derivation that builds a tree containing the `.go' files
corresponding to MODULES. All the MODULES are built in a context where 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 they can refer to each other. When TARGET is true, cross-compile MODULES for
@ -1531,6 +1532,13 @@ TARGET, a GNU triplet."
(system base target) (system base target)
(system base compile)) (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) (define (regular? file)
(not (member file '("." "..")))) (not (member file '("." ".."))))
@ -1551,7 +1559,9 @@ TARGET, a GNU triplet."
(compile-file entry (compile-file entry
#:output-file output #:output-file output
#:opts #:opts
%auto-compilation-options))) `(,@%auto-compilation-options
,@(optimizations-for-level
(ungexp optimization-level))))))
(+ 1 processed)))) (+ 1 processed))))