# New Ticket Created by Will Coleda
# Please include the string: [perl #51390]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51390 >
Tcl is exposing another GC bug (even on feather.)
build tcl, then prove t/cmd_array.t
Backtrace from GDB is:
Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0xb6e326c0 (LWP 20500)]
0xb7cb1a39 in new_pmc_ext (interp=0x804f008) at src/headers.c:343
343 pool->free_list = *(void **)ptr;
(gdb) bt
#0 0xb7cb1a39 in new_pmc_ext (interp=0x804f008) at src/headers.c:343
#1 0xb7cb1994 in new_pmc_header (interp=0x804f008, flags=67109888)
at src/headers.c:304
#2 0xb7cecfe7 in get_new_pmc_header (interp=0x804f008, base_type=70,
flags=1024) at src/pmc.c:241
#3 0xb7cecc51 in pmc_new (interp=0x804f008, base_type=70) at src/pmc.c:69
#4 0xb7e93af5 in Parrot_NameSpace_nci_get_name (interp=0x804f008,
pmc=0x830d340) at ./src/pmc/namespace.pmc:610
#5 0xb7e71f47 in Parrot_Class_get_string (interp=0x804f008, pmc=0x835ba58)
at ./src/pmc/class.pmc:544
#6 0xb7e9fd4f in Parrot_Object_name (interp=0x804f008, pmc=0xb6898078)
at ./src/pmc/object.pmc:150
#7 0xb7c5c150 in Parrot_typeof_s_p (cur_opcode=0xb6b35214, interp=0x804f008)
at src/ops/pmc.ops:172
#8 0xb7cedc84 in runops_slow_core (interp=0x804f008, pc=0xb6b35214)
at src/runops_cores.c:213
#9 0xb7cb9a26 in runops_int (interp=0x804f008, offset=3308)
at src/interpreter.c:878
#10 0xb7cba367 in runops (interp=0x804f008, offs=3) at src/inter_run.c:104
#11 0xb7cba5f6 in runops_args (interp=0x804f008, sub=0x82674d0, obj=0x8097008,
meth_unused=0x0, sig=0xb7f10dd3 "vP",
ap=0xbf9fd16c
"Ps&\b??\237?\220l????\022\bPs&\b?t&\b8?????\237?\022??\b?\004\b\002")
at src/inter_run.c:230
---Type <return> to continue, or q <return> to quit---
#12 0xb7cba72c in Parrot_runops_fromc_args (interp=0x804f008, sub=0x82674d0,
sig=0xb7f10dd3 "vP") at src/inter_run.c:299
#13 0xb7ca2ae7 in Parrot_runcode (interp=0x804f008, argc=2, argv=0xbf9fd2d8)
at src/embed.c:912
#14 0xb7eec512 in imcc_run_pbc (interp=0x804f008, obj_file=0, output_file=0x0,
argc=2, argv=0xbf9fd2d8) at compilers/imcc/main.c:794
#15 0xb7eecf02 in imcc_run (interp=0x804f008, sourcefile=0xbf9fd9f6 "tcl.pbc",
argc=2, argv=0xbf9fd2d8) at compilers/imcc/main.c:1080
#16 0x080488c2 in main (argc=2, argv=0xbf9fd2d8) at src/main.c:56
--
Will "Coke" Coleda
