# New Ticket Created by Will Coleda
# Please include the string: [perl #60170]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60170 >
While trying to duplicate the tcl segfault in PIR, I was able to
generate PIR that reliably segfaulted; except it turned out it was
segfaulting a different way:
.sub '__onload' :immediate
load_bytecode 'TGE.pbc'
push_eh class_loaded
$P1 = subclass [ 'TGE'; 'Grammar' ], ['what']
pop_eh
class_loaded:
.end
#0 0xb7e74958 in verify_signature (interp=0x804f040, ins=0x81ce4a8,
pc=0x81ce590) at compilers/imcc/pbc.c:1734
#1 0xb7e752d2 in e_pbc_emit (interp=0x804f040, param_unused=0x0,
unit=0x81cdf08, ins=0x81ce4a8) at compilers/imcc/pbc.c:1998
#2 0xb7e69726 in emit_flush (interp=0x804f040, param=0x0, unit=0x81cdf08)
at compilers/imcc/instructions.c:879
...
This segfault doesn't is still present with -G
--
Will "Coke" Coleda
