[perl #47816] Tcl Segfault

[via RT]

# New Ticket Created by  Will Coleda 
# Please include the string:  [perl #47816]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=47816 >


Yet another tcl segfault, this time on feather. (linux)

Revision: 23055

1) build tcl.

2) run "../../parrot tcl.pbc"

3) boom

backtrace via gdb:


Script started on Mon Nov 26 02:45:27 2007
]0;[EMAIL PROTECTED];[EMAIL PROTECTED];0 [EMAIL 
PROTECTED]:~/sandbox/parrot/languages/tcl$ gdb ../../parrot

GNU gdb 6.6.90.20070912-debian

Copyright (C) 2007 Free Software Foundation, Inc.

License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>

This is free software: you are free to change and redistribute it.

There is NO WARRANTY, to the extent permitted by law.  Type "show copying"

and "show warranty" for details.

This GDB was configured as "i486-linux-gnu"...

Using host libthread_db library "/lib/i686/nosegneg/libthread_db.so.1".

(gdb) run tcl.pbc

Starting program: /home/coke/sandbox/parrot/parrot tcl.pbc

[Thread debugging using libthread_db enabled]

[New Thread 0xb6e758d0 (LWP 32138)]

warning: Lowest section in /usr/lib/libicudata.so.34 is .hash at 00000094

[New Thread 0xb6e53b90 (LWP 32141)]

[New Thread 0xb6652b90 (LWP 32142)]



Program received signal SIGSEGV, Segmentation fault.

[Switching to Thread 0xb6e758d0 (LWP 32138)]

0xb7d079c3 in pmc_new (interp=0x804e008, base_type=80) at src/pmc.c:70

70          PMC *const classobj = interp->vtables[base_type]->pmc_class;

(gdb) bt

#0  0xb7d079c3 in pmc_new (interp=0x804e008, base_type=80) at src/pmc.c:70

#1  0xb7e556be in get_string_pmc (interp=0x804e008, base_type=42)

    at ./src/pmc/hash.pmc:69

#2  0xb7e56e57 in Parrot_Hash_set_string_keyed_str (interp=0x804e008, 

    pmc=0x81d57a0, key=0x822b590, value=0x822ac48) at ./src/pmc/hash.pmc:780

#3  0xb7d02b7c in Parrot_load_bytecode (interp=0x804e008, file_str=0x8243230)

    at src/packfile.c:3901

#4  0xb7c68119 in Parrot_load_bytecode_sc (cur_opcode=0xb7b7511c, 

    interp=0x804e008) at src/ops/core.ops:150

#5  0xb7d0897a in runops_slow_core (interp=0x804e008, pc=0xb7b7511c)

    at src/runops_cores.c:223

#6  0xb7cd9408 in runops_int (interp=0x804e008, offset=3)

    at src/interpreter.c:887

#7  0xb7cd9dfe in runops (interp=0x804e008, offs=3) at src/inter_run.c:106

#8  0xb7cda04c in runops_args (interp=0x804e008, sub=0x81d46a8, obj=0x80921f0, 

    meth_unused=0x0, sig=0xb7eee827 "vP", 

    ap=0xbfbbe4dc 
"(???$\b\030???\020b??????\220???$\b(???$\b???F\035\b???\207??????\030???\001?????????\b???\004\b\001")
 at src/inter_run.c:240

#9  0xb7cda158 in Parrot_runops_fromc_args (interp=0x804e008, sub=0x81d46a8, 

    sig=0xb7eee827 "vP") at src/inter_run.c:317

#10 0xb7cc3726 in Parrot_runcode (interp=0x804e008, argc=1, argv=0xbfbbe668)

    at src/embed.c:916

#11 0xb7ecae01 in imcc_run_pbc (interp=0x804e008, obj_file=0, output_file=0x0, 

    argc=1, argv=0xbfbbe668) at compilers/imcc/main.c:799

#12 0xb7ecb6f8 in imcc_run (interp=0x804e008, sourcefile=0xbfbbebc6 "tcl.pbc", 

    argc=1, argv=0xbfbbe668) at compilers/imcc/main.c:1086

#13 0x0804892d in main (argc=1, argv=0xbfbbe668) at src/main.c:62

(gdb) q

The program is running.  Exit anyway? (y or n) EOF [assumed Y]

2;0 [EMAIL PROTECTED]:~/sandbox/parrot/languages/tcl$ exit


Script done on Mon Nov 26 02:46:10 2007

--
Will "Coke" Coleda
[EMAIL PROTECTED]