% cat main.c
#include <stdlib.h>
#include <pthread.h>
#include <libguile.h>
pthread_t dumper;
static void *call_gc(void *null)
{
scm_gc();
return NULL;
}
void *thread_dumper(void *null)
{
scm_with_guile(call_gc, NULL);
return NULL;
}
int main(void)
{
while (1) {
pthread_create(&dumper, NULL, thread_dumper, NULL);
for (;;) sleep(1);
}
return EXIT_SUCCESS;
}
% make
gcc -O0 -g3 -ggdb3 -I/usr/local/include/guile/2.0 -I/usr/local/include
main.c -L/usr/local/lib -lguile-2.0 -lgc -lunistring -lcrypt -lm -lltdl
-lpthread -o main
% ./main
zsh: segmentation fault (core dumped) ./main
% gdb main core
...
(gdb) bt
#0 0x00007f184630b698 in GC_is_black_listed (h=0x24ea000, len=4096) at
blacklst.c:233
#1 0x00007f1846308c15 in GC_allochblk_nth (sz=512, kind=1, flags=0, n=14,
may_split=1) at allchblk.c:690
#2 0x00007f1846308989 in GC_allochblk (sz=512, kind=1, flags=0) at
allchblk.c:625
#3 0x00007f18463185f2 in GC_new_hblk (gran=32, kind=1) at new_hblk.c:191
#4 0x00007f184630b090 in GC_allocobj (gran=32, kind=1) at alloc.c:1290
#5 0x00007f1846311010 in GC_generic_malloc_inner (lb=496, k=1) at malloc.c:126
#6 0x00007f1846310fd9 in GC_generic_malloc_inner (lb=496, k=1) at malloc.c:121
#7 0x00007f18463111b4 in GC_generic_malloc (lb=496, k=1) at malloc.c:166
#8 0x00007f1846311644 in GC_core_malloc (lb=496) at malloc.c:276
#9 0x00007f184631d19f in GC_malloc (bytes=496) at thread_local_alloc.c:161
#10 0x00007f18465f6d6e in scm_gc_malloc (size=496, what=0x7f18466d8cd0
"thread") at gc-malloc.c:189
#11 0x00007f184666f0b3 in guilify_self_1 (base=0x7f1844af9d88) at threads.c:325
#12 0x00007f1846671a3e in scm_threads_prehistory (base=0x7f1844af9d88) at
threads.c:1924
#13 0x00007f184660b9a5 in scm_i_init_guile (base=0x7f1844af9d88) at init.c:442
#14 0x00007f184666f718 in scm_i_init_thread_for_guile (base=0x7f1844af9d88,
parent=0x0) at threads.c:582
#15 0x00007f184666f8c7 in scm_i_with_guile_and_parent (func=0x4007f4 <call_gc>,
data=0x0, parent=0x0) at threads.c:730
#16 0x00007f184666f866 in scm_with_guile (func=0x4007f4 <call_gc>, data=0x0) at
threads.c:713
#17 0x0000000000400827 in thread_dumper (null=0x0) at main.c:15
#18 0x00007f184631e66e in GC_inner_start_routine (sb=0x7f1844af9e80,
arg=0x24e8fc0) at pthread_support.c:1216
#19 0x00007f1846317d97 in GC_call_with_stack_base (fn=0x7f184631e572
<GC_inner_start_routine>, arg=0x24e8fc0) at misc.c:1361
#20 0x00007f184631e6df in GC_start_routine (arg=0x24e8fc0) at
pthread_support.c:1247
#21 0x00007f18457079ca in start_thread (arg=<value optimized out>) at
pthread_create.c:300
#22 0x00007f18454646fd in clone () at
../sysdeps/unix/sysv/linux/x86_64/clone.S:112
#23 0x0000000000000000 in ?? ()
% guile
GNU Guile 1.9.11.259-252f
Which I just compiled from commit 252f9f187ac8608ebcbf513bbbda49fc085f3a52
Any idea welcome.
