[ruby-dev:24284] Array.new with callcc causes core dump

次のようにすると core を吐きます。

% ruby -e '
arr = Array.new(100) {|i|
  callcc {|k| $k = k } if i == 3
  i
}
p arr
arr.clear
arr.compact!
$k.call
'
[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99]
zsh: segmentation fault (core dumped)  ruby -e 
% gdb ruby core 
GNU gdb 6.1-debian
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i386-linux"...Using host libthread_db library "/lib/libthread_db.so.1".

Core was generated by `ruby -e 
arr = Array.new(100) {|i|
  callcc {|k| $k = k } if i == 3
  i
}
p arr'.
Program terminated with signal 11, Segmentation fault.
Reading symbols from /lib/libdl.so.2...done.
Loaded symbols for /lib/libdl.so.2
Reading symbols from /lib/libcrypt.so.1...done.
Loaded symbols for /lib/libcrypt.so.1
Reading symbols from /lib/libm.so.6...done.
Loaded symbols for /lib/libm.so.6
Reading symbols from /lib/libc.so.6...done.
Loaded symbols for /lib/libc.so.6
Reading symbols from /lib/ld-linux.so.2...done.
Loaded symbols for /lib/ld-linux.so.2
#0  0x400e6d45 in mallopt () from /lib/libc.so.6
(gdb) bt
#0  0x400e6d45 in mallopt () from /lib/libc.so.6
#1  0x400e5ed3 in malloc () from /lib/libc.so.6
#2  0x0806f1f3 in ruby_xmalloc (size=1075466176) at gc.c:120
#3  0x080b3014 in rb_str_buf_new (capa=128) at string.c:199
#4  0x080b3054 in rb_str_buf_new (capa=1) at string.c:212
#5  0x080c4ece in inspect_ary (ary=1075607996) at array.c:1522
#6  0x080c4c98 in rb_ary_to_s (ary=64) at array.c:1433
#7  0x0805d439 in rb_ensure (b_proc=0x80c4c80 <rb_ary_to_s+16>, 
    data1=3221220416, e_proc=0x80c4d80 <get_inspect_tbl+176>, data2=1075607996)
    at eval.c:5173
#8  0x080c4e3f in rb_protect_inspect (func=0x80c4e90 <rb_inspecting_p+16>, 
    obj=1075607996, arg=0) at array.c:1499
#9  0x080c4fe6 in rb_ary_inspect (ary=1075607996) at array.c:1550
#10 0x08069e31 in call_cfunc (func=0x80c4f90 <inspect_ary+208>, 
    recv=1075607996, len=64, argc=1075466268, argv=0x0) at eval.c:5367
#11 0x0805e0b7 in rb_call0 (klass=1075647656, recv=1075607996, id=3169, 
    oid=71, argc=0, argv=0x0, body=0x401d13a4, nosuper=0) at eval.c:5504
#12 0x0805e368 in rb_call (klass=1075647656, recv=1075607996, mid=3169, 
    argc=0, argv=0x0, scope=1) at eval.c:5725
#13 0x0805e6e4 in rb_funcall (recv=1075607996, mid=71, n=0) at ruby.h:634
#14 0x08085c86 in rb_inspect (obj=71) at object.c:345
#15 0x080796b1 in rb_p (obj=71) at io.c:3747
#16 0x08079762 in rb_f_p (argc=1, argv=0xbffff168) at io.c:3777
#17 0x08069e2a in call_cfunc (func=0x80796f0 <rb_f_p>, recv=1075673496, 
    len=64, argc=1075466268, argv=0xbffff168) at eval.c:5364
#18 0x0805e0b7 in rb_call0 (klass=1075678376, recv=1075673496, id=7401, 
    oid=71, argc=1, argv=0xbffff168, body=0x401cea8c, nosuper=0) at eval.c:5504
#19 0x0805e368 in rb_call (klass=1075678376, recv=1075673496, mid=7401, 
    argc=1, argv=0xbffff168, scope=1) at eval.c:5725
#20 0x080592a8 in rb_eval (self=1075673496, n=0x47) at ruby.h:634
#21 0x0805583b in ruby_exec () at eval.c:1458
#22 0x08055880 in ruby_run () at eval.c:1479
#23 0x08053955 in main (argc=71, argv=0x47, envp=0xbffff934) at main.c:38
(gdb) 
-- 
[田中 哲][たなか あきら][Tanaka Akira]