bug#50609: number overflow

[lloda]

I've applied the patch in c6b1171c6b5632ac04120f482af786444e17d3fe. Thanks for 
the report!

bug#50609: number overflow

[lloda]

Not quite comfortable poking around in the compiler, but find a patch attached.

I also found this related bug: 
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32644.




0001-Limit-the-range-of-ash-round-ash-count-argument-to-I.patch
Description: Binary data


0002-Avoid-ash-with-arguments-that-might-overflow-in-lang.patch
Description: Binary data

bug#50609: number overflow

[Stefan Israelsson Tampe]

This does not compile on guile 3.0.7,

(define (f . l)
  (let lp2 ((i 0) (s 0) (l l))
(if (and (pair? l) (< i 64))
 (lp2 (+ i 1) (if (car l) (logior (ash 1 i) s) s) (cdr l))
 s)))

While compiling expression:
Throw to key `numerical-overflow' with args `("ash" "Numerical ove
rflow" #f #f)'.