Hi,
The following compilation error occurs on i686-linux:
--8<---------------cut here---------------start------------->8---
BOOTSTRAP(stage1) GUILEC ice-9/control.go
wrote `language/cps/verify.go'
BOOTSTRAP(stage1) GUILEC ice-9/copy-tree.go
wrote `ice-9/copy-tree.go'
BOOTSTRAP(stage1) GUILEC ice-9/curried-definitions.go
Backtrace:
In ice-9/boot-9.scm:
1755:12 19 (with-exception-handler #<procedure c6988 at
ice-9/boot-9.scm:1797:7 (exn)> #<procedure f1d60 at
system/base/compile.scm:68:9 ()> #:unwind? _ #:unwind-for-type _)
In system/base/compile.scm:
69:11 18 (_)
190:11 17 (_ #<closed: file 42e38>)
309:6 16 (read-and-compile #<closed: file 42e70> #:from _ #:to _ #:env _
#:optimization-level _ #:warning-level _ #:opts _)
352:28 15 (compile #<tree-il (seq (let (m) (m-182b3cf1-2) ((call (@@ (guile)
define-module*) (const (ice-9 control)) (const #:filename) (const
"ice-9/control.scm") (const #:exports) (const (% abort shift reset shift*
reset* call-with-escape-continuation call/ec let-escape-continuation let/ec
suspendable-continuation?)) (const #:re-exports) (const (call-with-prompt
abort-to-prompt default-prompt-tag make-prompt-tag)) (const #:declarative?)
(const #t))) (seq (call (@@ (guile) set-current-m?> ?)
265:44 14 (_ #<tree-il (seq (let (m) (m-182b3cf1-2) ((call (@@ (guile)
define-module*) (const (ice-9 control)) (const #:filename) (const
"ice-9/control.scm") (const #:exports) (const (% abort shift reset shift*
reset* call-with-escape-continuation call/ec let-escape-continuation let/ec
suspendable-continuation?)) (const #:re-exports) (const (call-with-prompt
abort-to-prompt default-prompt-tag make-prompt-tag)) (const #:declarative?)
(const #t))) (seq (call (@@ (guile) set-current-module)?> ?)
261:33 13 (_ #<intmap 0-1142> #<directory (ice-9 control) e9c30>)
In language/cps/optimize.scm:
136:2 12 (_ _ #<directory (ice-9 control) e9c30>)
111:3 11 (optimize-first-order-cps _ _)
In language/cps/switch.scm:
414:6 10 (optimize-branch-chains _)
In language/cps/intmap.scm:
519:6 9 (visit-branch #(#(#(#<intset 0-129> (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) #f) (absent) (absent) (absent) #((absent)
(absent) #<intset 130-153> (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) # ?) ?) ?) ?)
519:6 8 (visit-branch #(#(#<intset 0-129> (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) #f) (absent) (absent) (absent) #((absent)
(absent) #<intset 130-153> (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (#) # ?) ?) ?)
519:6 7 (visit-branch #((absent) (absent) #<intset 130-153> (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent)
(absent) (absent) (absent) (absent) (absent) (absent) #<intset
154-734,1124-1129> (absent) (absent) (absent) (absent) (absent) #f) _ 128 _)
In language/cps/switch.scm:
99:36 6 (fold-branch-chains #<intmap 0-1129> _ _ #<procedure
optimize-branch-chain (var exit tests cps)> _)
343:8 5 (optimize-branch-chain 100 151 (132 134 136 138 140) _)
In ice-9/boot-9.scm:
260:13 4 (for-each1 ((call-with-escape-continuation . 135) (call/ec . 133)
(reset* . 139) (shift* . 137)))
In language/cps/switch.scm:
340:32 3 (_ (call-with-escape-continuation . 135))
In language/cps/guile-vm.scm:
89:31 2 (target-symbol-hash _)
41:18 1 (jenkins-lookup3-hashword2 "call-with-escape-continuation")
In ice-9/boot-9.scm:
1676:22 0 (lp 0)
ice-9/boot-9.scm:1676:22: In procedure lp:
Value out of range 0 to< 18446744073709551615: -512332661
make[2]: *** [Makefile:2517: ice-9/control.go] Error 1
make[2]: *** Waiting for unfinished jobs....
--8<---------------cut here---------------end--------------->8---
According to <https://ci.guix.gnu.org/build/477680/details>, this
regression was introduced by
<https://git.savannah.gnu.org/cgit/guile.git/commit/?id=3b47f87618047ebb8812788c64a44877a4f2e0dd>.
(This affects 3.0.10.)
Ludo’.
