# New Ticket Created by Will Coleda # Please include the string: [perl #60172] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60172 >
.sub _main ($S0) = 'blah'(:pir_only=>1) .end segfaults with: 0xb7e4fe84 in expand_pcc_sub_call (interp=0x804f040, unit=0x8116688, ins=0x8120318) at compilers/imcc/pcc.c:706 706 if (!meth_call && (the_sub->type & VTADDRESS)) { (gdb) bt #0 0xb7e4fe84 in expand_pcc_sub_call (interp=0x804f040, unit=0x8116688, ins=0x8120318) at compilers/imcc/pcc.c:706 #1 0xb7e40a93 in find_basic_blocks (interp=0x804f040, unit=0x8116688, first=1) at compilers/imcc/cfg.c:261 -- Will "Coke" Coleda