# New Ticket Created by Will Coleda
# Please include the string: [perl #39925]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39925 >
Revision: 13510
Build tcl.
Create this file in languages/tcl:
% cat foo.t
#!../../parrot tcl.pbc
source lib/test_more.tcl
set num 100
plan $num
for {set a 0} {$a < $num} {incr a} {
is [list] {} {no elements}
}
% gdb ../../parrot
(gdb) tcl.pbc foo.t
Program received signal EXC_BAD_ACCESS, Could not access memory.
Reason: KERN_PROTECTION_FAILURE at address: 0x0039f028
0x0000b2ac in yylex (valp=0xbfffeac0, yyscanner=0x266c440,
interp=0x2600420) at compilers/imcc/imcc.l:376
376 m->expansion = str_dup (valp->s);
(gdb) bt
#0 0x0000b2ac in yylex (valp=0xbfffeac0, yyscanner=0x266c440,
interp=0x2600420) at compilers/imcc/imcc.l:376
#1 0x00023e28 in yyparse (yyscanner=0x266c440, interp=0x2600420) at
compilers/imcc/imcparser.c:2509
#2 0x000111c0 in compile_string (interp=0x2600420, s=0x2542000 ".HLL
'tcl', 'tcl_group'\n# src/compiler.pir :: pir_compiler (2)\n.pragma
n_operators 1\n.sub compiled_tcl_sub1 :anon\n.include \"languages/tcl/
src/returncodes.pir\"\n .local pmc epoch, p6rule, colons, split"...,
yyscanner=0x266c440) at compilers/imcc/imcc.l:1088
#3 0x0001ddb8 in imcc_compile (interp=0x2600420, s=0x2542000 ".HLL
'tcl', 'tcl_group'\n# src/compiler.pir :: pir_compiler (2)\n.pragma
n_operators 1\n.sub compiled_tcl_sub1 :anon\n.include \"languages/tcl/
src/returncodes.pir\"\n .local pmc epoch, p6rule, colons, split"...,
pasm_file=0, error_message=0xbffff1f8) at compilers/imcc/
parser_util.c:634
#4 0x0001dfe0 in imcc_compile_pir (interp=0x2600420, s=0x2542000
".HLL 'tcl', 'tcl_group'\n# src/compiler.pir :: pir_compiler (2)
\n.pragma n_operators 1\n.sub compiled_tcl_sub1 :anon\n.include
\"languages/tcl/src/returncodes.pir\"\n .local pmc epoch, p6rule,
colons, split"...) at compilers/imcc/parser_util.c:704
#5 0x00290a9c in pcf_P_Jt (interpreter=0x2600420, self=0xe9c0a8) at
src/nci.c:2624
#6 0x002506e0 in Parrot_NCI_invoke (interpreter=0x2600420,
pmc=0xe9c0a8, next=0xf431d8) at src/pmc/nci.pmc:146
#7 0x00232110 in Parrot_Compiler_invoke (interpreter=0x2600420,
pmc=0xe9c0a8, code_ptr=0xf431d8) at src/pmc/compiler.pmc:38
#8 0x0006504c in Parrot_invokecc_p (cur_opcode=0xf431d0,
interpreter=0x2600420) at src/ops/core.ops:414
#9 0x0021d34c in runops_slow_core (interpreter=0x2600420,
pc=0xf431d0) at src/runops_cores.c:180
#10 0x0005ccd8 in runops_int (interpreter=0x2600420, offset=3) at src/
interpreter.c:775
#11 0x00054e64 in runops (interpreter=0x2600420, offs=3) at src/
inter_run.c:81
#12 0x0005514c in runops_args (interpreter=0x2600420, sub=0xe9b718,
obj=0x2819140, meth=0x0, sig=0x2aa370 "vP", ap=0xbffff624 "") at src/
inter_run.c:182
#13 0x000552e0 in Parrot_runops_fromc_args (interpreter=0x2600420,
sub=0xe9b718, sig=0x2aa370 "vP") at src/inter_run.c:276
#14 0x0001b8a0 in Parrot_runcode (interpreter=0x2600420, argc=2,
argv=0xbffff7bc) at src/embed.c:806
#15 0x00005778 in main (argc=2, argv=0xbffff7bc) at compilers/imcc/
main.c:719
Setting the number of iterations in the test to 24 seems to work. 25
fails. enabling --gc-debug or --no-gc has no effect.
--
Will "Coke" Coleda
[EMAIL PROTECTED]
