futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compile: Really disable cross-module inlining and related features.

Browse Source 
This is a followup to d87a1ba6b8.

* guix/build/compile.scm (strip-keyword-arguments): Rename to...
(clear-keyword-arguments): ... this, and set the value associated with
each of KEYWORDS to #f.
(optimizations-for-level): Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2022-01-21 16:32:44 +01:00
parent 8ef0473969
commit 97a6b4581a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/build/compile.scm
View File

@ -37,8 +37,8 @@
;;;
;;; Code:
(define (strip-keyword-arguments keywords args) ;XXX: copied from (guix utils)
"Remove all of the keyword arguments listed in KEYWORDS from ARGS."
(define (clear-keyword-arguments keywords args)
"Set to #f the value associated with each of the KEYWORDS in ARGS."
(let loop ((args args)
(result '()))
(match args
@ -47,7 +47,7 @@
(((? keyword? kw) arg . rest)
(loop rest
(if (memq kw keywords)
result
(cons* #f kw result)
(cons* arg kw result))))
((head . tail)
(loop tail (cons head result))))))
@ -82,7 +82,7 @@
;; non-reproducible and more expensive builds, so we turn it off
;; here:
;; <https://wingolog.org/archives/2021/05/13/cross-module-inlining-in-guile>.
(strip-keyword-arguments '(#:inlinable-exports? #:resolve-free-vars?
(clear-keyword-arguments '(#:inlinable-exports? #:resolve-free-vars?
#:cross-module-inlining?)
(if (<= level 1)
%lightweight-optimizations