bug#46447: segfault with bugnum

bug#46447: segfault with bugnum

[Ricardo Wurmus]

This program sometimes causes Guile 3.0.5 to segfault:

  (define a (expt 2 (expt 3 (expt 4 2))))
  (display (remainder a 1000000000))
  (display "\n")

And sometimes this program doesn’t terminate.  Here’s an example
session with the program saved to foo.scm:

--8<---------------cut here---------------start------------->8---
$ guile -s foo.scm
;;; note: source file /home/rekado/dev/gx/branches/master/foo.scm
;;;       newer than compiled /home/rekado/.cache/guile/ccache/3.0-LE-8-4.4/home/rekado/dev/gx/branches/master/foo.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /home/rekado/dev/gx/branches/master/foo.scm
;;; compiled /home/rekado/.cache/guile/ccache/3.0-LE-8-4.4/home/rekado/dev/gx/branches/master/foo.scm.go
176561152
$ [env] guile -s foo.scm
176561152
$ [env] guile -s foo.scm
Segmentation fault
$ [env] guile -s foo.scm
  C-c C-c # after more than 6 seconds
$ [env]   C-c C-c
$ [env] guile -s foo.scm
Segmentation fault
$ [env] guile -s foo.scm
176561152
$ [env] guile -s foo.scm
  C-c C-c
$ [env] guile -s foo.scm
176561152
--8<---------------cut here---------------end--------------->8---

-- 
Ricardo

bug#46447: segfault with bugnum

[tomas]

[-- Attachment #1: Type: text/plain, Size: 499 bytes --]

On Thu, Feb 11, 2021 at 09:54:38PM +0100, Ricardo Wurmus wrote:
> This program sometimes causes Guile 3.0.5 to segfault:
> 
>   (define a (expt 2 (expt 3 (expt 4 2))))
>   (display (remainder a 1000000000))
>   (display "\n")
> 
> And sometimes this program doesn’t terminate.  Here’s an example
> session with the program saved to foo.scm:

The first expr alone seems to segfault for me (Guile 3.0.4.38-64c894-dirty)
repeatably (well, that means 5 times in a row ;)

Cheers
 - t

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 198 bytes --]