# New Ticket Created by Will Coleda
# Please include the string: [perl #40087]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40087 >
… But you're not going to like the steps to reproduce:
build tcl # this should set off warning bells already!
% ../../parrot tcl.pbc --pir t/cmd_expr.t > out.pir # generates a
9000 line sub.
% ../../parrot -o out.pbc out.pir # takes forever
% ../../parrot out.pbc # segfaults.
Running through gdb, I see we're recursing pretty deep:
0x0025586c in Parrot_Key_get_integer (interpreter=0x255888, pmc=0x0)
at src/pmc/key.pmc:120
120 INTVAL get_integer () {
(gdb) bt
#0 0x0025586c in Parrot_Key_get_integer (interpreter=0x255888,
pmc=0x0) at src/pmc/key.pmc:120
#1 0x00059260 in key_integer (interpreter=0xe003c0, key=0xfc3450) at
src/key.c:303
#2 0x00255888 in Parrot_Key_get_integer (interpreter=0xe003c0,
pmc=0xfc3450) at src/pmc/key.pmc:121
#3 0x00059260 in key_integer (interpreter=0xe003c0, key=0xfc3450) at
src/key.c:303
#4 0x00255888 in Parrot_Key_get_integer (interpreter=0xe003c0,
pmc=0xfc3450) at src/pmc/key.pmc:121
#5 0x00059260 in key_integer (interpreter=0xe003c0, key=0xfc3450) at
src/key.c:303
#6 0x00255888 in Parrot_Key_get_integer (interpreter=0xe003c0,
pmc=0xfc3450) at src/pmc/key.pmc:121
It got to #1635 before I hit ^C.d
No change running the last parrot invocation with -G
Regards.
--
Will "Coke" Coleda
[EMAIL PROTECTED]
