[Chicken-users] Segfault - a hard one

[F. Wittenberger]

Hi all,

Please find attached a self contained program, which is supposed to run
a useless thread for 3 seconds, kill it (logging a notice about an
exception being caught), create some garbage (logging a notice before
and afterwards) and exit properly.

To compile:
$ csc -o ttm ttm.scm

Here's the output on my machine:

$ ./ttm 
test
Load error in (define aa (with-timeout 3 (lambda () (do () (#f)
#t)))):(timeout) in (define aa (with-timeout 3 (lambda () (do () (#f)
#t))))
let's do some garbage
Segmentation fault
$ ./ttm 
test
Load error in (define aa (with-timeout 3 (lambda () (do () (#f)
#t)))):(timeout) in (define aa (with-timeout 3 (lambda () (do () (#f)
#t))))
let's do some garbage

out of memory - heap full while resizing - execution terminated

...more...
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append     <--
$ ./ttm 
test
Load error in (define aa (with-timeout 3 (lambda () (do () (#f)
#t)))):(timeout) in (define aa (with-timeout 3 (lambda () (do () (#f)
#t))))
let's do some garbage
Segmentation fault
$ ./ttm 
test
Load error in (define aa (with-timeout 3 (lambda () (do () (#f)
#t)))):(timeout) in (define aa (with-timeout 3 (lambda () (do () (#f)
#t))))
let's do some garbage

out of memory - heap full while resizing - execution terminated

...more...
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append
ttm.scm: 66   number->string
ttm.scm: 66   string-append     <--
$ ./ttm 
test
Load error in (define aa (with-timeout 3 (lambda () (do () (#f)
#t)))):(timeout) in (define aa (with-timeout 3 (lambda () (do () (#f)
#t))))
let's do some garbage
Segmentation fault

Best regards

/Jörg

ttm.scm
Description: Text Data