bug#75078: Guile 3.0.10 fails to build for i686 cygwin

bug#75078: Guile 3.0.10 fails to build for i686 cygwin

[Jeremy Drake via Bug reports for GUILE, GNU's Ubiquitous Extension Language]

3.0.8 and 3.0.9 build, but 3.0.10 fails in BOOTSTRAP(stage1) with:
Backtrace:
In ice-9/boot-9.scm:
  1755:12 19 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)
In system/base/compile.scm:
    69:11 18 (_)
   190:11 17 (_ #<closed: file ffd72ea8>)
    309:6 16 (read-and-compile #<closed: file ffd72ee0> #: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 (language cps guile-vm reify-primitives)) (const #:filename) (const "language/cps/guile-vm/reify-primitives.scm") (const #:imports) (const (((ice-9 match)) ((language tree-il primitives) #:select ((primitive-module . tree-il:primitive-module))) ((language cps)) ((language cps utils)) ((language cps with-cps)) ((language cps intmap)) ((language bytecode)) ((system base target)) ((system bas?> ?)
   265:44 14 (_ #<tree-il (seq (let (m) (m-182b3cf1-2) ((call (@@ (guile) define-module*) (const (language cps guile-vm reify-primitives)) (const #:filename) (const "language/cps/guile-vm/reify-primitives.scm") (const #:imports) (const (((ice-9 match)) ((language tree-il primitives) #:select ((primitive-module . tree-il:primitive-module))) ((language cps)) ((language cps utils)) ((language cps with-cps)) ((language cps intmap)) ((language bytecode)) ((system base target)) ((system base type?> ?)
   261:33 13 (_ #<intmap 0-11706> #<directory (language cps guile-vm reify-primitives) ff1b2640>)
In language/cps/optimize.scm:
    136:2 12 (_ _ #<directory (language cps guile-vm reify-primitives) ff1b2640>)
    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-273> (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) (absent) (absent) #((absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) # ?) ?) ?) ?)
    519:6  8 (visit-branch #((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) #<intset 3160-3259> (absent) (absent) (absent) (absent) (absent) (absent) (absent) #f) (absent) (absent) #((absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) # ?) ?) ?)
    519:6  7 (visit-branch #((absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) #<intset 3689-7729,7913-8003> (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) (absent) #f) _ 3680 _)
In language/cps/switch.scm:
    99:36  6 (fold-branch-chains #<intmap 0-8003> _ _ #<procedure optimize-branch-chain (var exit tests cps)> _)
    343:8  5 (optimize-branch-chain 3346 7427 (6771 6772 6773 6901 7029 7157 7285) _)
In ice-9/boot-9.scm:
   260:13  4 (for-each #<procedure fd7f2708 at language/cps/switch.scm:343:18 (expr)> _)
In language/cps/switch.scm:
   340:32  3 (_ (u64-imm-< . 7428))
In language/cps/guile-vm.scm:
    89:31  2 (target-symbol-hash _)
    41:18  1 (jenkins-lookup3-hashword2 "u64-imm-<")
In ice-9/boot-9.scm:
  1676:22  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1676:22: In procedure raise-exception:
Value out of range 0 to< 18446744073709551615: -505802029
make[2]: *** [Makefile:2515: language/cps/guile-vm/reify-primitives.go]
Error 1

See also my comments in https://github.com/msys2/MSYS2-packages/pull/5068,
not that I was able to track anything down other than the fact that the
module/language/cps/guile-vm.scm file is entirely new to 3.0.10, so my
idea to try to bisect the issue didn't work out.

bug#75078: Guile 3.0.10 fails to build for i686 cygwin

[Rob Browning]

Jeremy Drake <github@jdrake.com> writes:

> ice-9/boot-9.scm:1676:22: In procedure raise-exception:
> Value out of range 0 to< 18446744073709551615: -505802029
> make[2]: *** [Makefile:2515: language/cps/guile-vm/reify-primitives.go]
> Error 1

Is this with the release, or the current main branch?

Sounds like the former, and if so, then it could be something that's
been fixed since the release -- 3.0.10 is broken for 32-bit
architectures, but main should work there now.

-- 
Rob Browning
rlb @defaultvalue.org and @debian.org
GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A
GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4

bug#75078: Guile 3.0.10 fails to build for i686 cygwin

[Jeremy Drake via Bug reports for GUILE, GNU's Ubiquitous Extension Language]

On Mon, 6 Jan 2025, Rob Browning wrote:

> Jeremy Drake <github@jdrake.com> writes:
>
> > ice-9/boot-9.scm:1676:22: In procedure raise-exception:
> > Value out of range 0 to< 18446744073709551615: -505802029
> > make[2]: *** [Makefile:2515: language/cps/guile-vm/reify-primitives.go]
> > Error 1
>
> Is this with the release, or the current main branch?
>
> Sounds like the former, and if so, then it could be something that's
> been fixed since the release -- 3.0.10 is broken for 32-bit
> architectures, but main should work there now.

It was with the release.  I swear I did try to find commits or bug reports
that looked lile they were this issue, but I apparently didn't look in the
right place, I see bug 71891 now which is clearly this same issue.  Sorry
for the noise.

BTW, with the claim in that bug that it was fixed by
aff9ac968840e9c86719fb613bd2ed3c39b9905c, I attempted to apply that to
3.0.10 but got conflicts.  Since I don't know scheme at all (I'm just
trying to package guile), I also had to apply
5e6288c9304b60f1875a44808ee3858e3d6efc83
0dab58fc2a6ac6a8354439749d598f8c24f57ddd
and e45b70dcded37eb77e71ec30445b12040b6bb1b7, but with those 4 patches
the guile 3.0.10 release built for me on i686.  I don't know if I'll go
with that or just wait for 3.0.11 though.