# New Ticket Created by Will Coleda
# Please include the string: [perl #58812]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58812 >
After many weeks away from tcl, I tried to do a make test today
(r31046) and found a segfault.
I can't easily generate PIR to narrow it down, because even the --pir
option is segfaulting.
doing a build and just running "../../parrot tcl.pbc" is enough to
trigger the segfault (that should drop you into an interpreter.)
I'll post more details tomorrow if I can. Here's a backtrace from gdb.
Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0xb6c708d0 (LWP 426)]
0xb7ca4e33 in pmc_new_noinit (interp=0x804f040, base_type=81) at src/pmc.c:300
300 PMC *const classobj = interp->vtables[base_type]->pmc_class;
(gdb) bt
#0 0xb7ca4e33 in pmc_new_noinit (interp=0x804f040, base_type=81) at
src/pmc.c:300
#1 0xb7c7113b in Parrot_register_HLL_type (interp=0x804f040,
hll_id=2, core_type=67, hll_type=81)
at src/hll.c:362
#2 0xb7dd875e in Parrot_ParrotInterpreter_thawfinish
(interp=0x804f040, pmc=0x8220e9c, info=0xbfdc1aa8)
at ./src/pmc/parrotinterpreter.pmc:670
#3 0xb7ca44dc in visit_loop_todo_list (interp=0x804f040,
current=0x8220e9c, info=0xbfdc1aa8)
at src/pmc_freeze.c:1609
#4 0xb7ca46a6 in run_thaw (interp=0x804f040, image=0x8215114,
what=VISIT_THAW_NORMAL)
at src/pmc_freeze.c:1700
#5 0xb7ca4920 in Parrot_thaw (interp=0x804f040, image=0x8215114) at
src/pmc_freeze.c:1820
#6 0xb7c9f4a0 in PackFile_Constant_unpack_pmc (interp=0x804f040,
constt=0x8229408, self=0x8229698,
cursor=0xb7b12ba8) at src/packfile.c:3588
#7 0xb7c9f3f8 in PackFile_Constant_unpack (interp=0x804f040,
constt=0x8229408, self=0x8229698,
cursor=0xb7b129e8) at src/packfile.c:3542
#8 0xb7c9f0fc in PackFile_ConstTable_unpack (interp=0x804f040,
seg=0x8229408, cursor=0xb7b129e4)
at src/packfile.c:3338
#9 0xb7c9c81a in PackFile_Segment_unpack (interp=0x804f040,
self=0x8229408, cursor=0xb7b129e0)
at src/packfile.c:1614
#10 0xb7c9cd3e in directory_unpack (interp=0x804f040, segp=0x8229270,
cursor=0xb7b129d0)
at src/packfile.c:1808
#11 0xb7c9c81a in PackFile_Segment_unpack (interp=0x804f040,
self=0x8229270, cursor=0xb7b12040)
at src/packfile.c:1614
#12 0xb7c9b773 in PackFile_unpack (interp=0x804f040, self=0x8229270,
packed=0xb7b12000, packed_size=8000)
at src/packfile.c:877
#13 0xb7c60ba5 in Parrot_readbc (interp=0x804f040, fullname=0xbfdc39e0
"tcl.pbc") at src/embed.c:506
#14 0xb7eb6e0b in imcc_run (interp=0x804f040, sourcefile=0xbfdc39e0
"tcl.pbc", argc=1, argv=0xbfdc1e88)
at compilers/imcc/main.c:1051
#15 0x08048978 in main (argc=1, argv=0xbfdc1e88) at src/main.c:61
--
Will "Coke" Coleda
