# New Ticket Created by Will Coleda # Please include the string: [perl #44803] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44803 >
I swear tcl was working this weekend... with a realclean on r20556 ../../parrot tcl.pbc t/cmd_after.t dies with: Program received signal EXC_BAD_ACCESS, Could not access memory. Reason: KERN_INVALID_ADDRESS at address: 0x00ec1894 0x000951b0 in ascii_compare (interp=0x31003b0, lhs=0x356ac94, rhs=0x1897ad8) at src/charset/ascii.c:328 328 const int ret_val = memcmp(lhs->strstart, rhs- >strstart, min_len); (gdb) bt #0 0x000951b0 in ascii_compare (interp=0x31003b0, lhs=0x356ac94, rhs=0x1897ad8) at src/charset/ascii.c:328 #1 0x00004c12 in string_equal (interp=0x31003b0, s1=0x356ac94, s2=0x1897ad8) at src/string.c:1327 #2 0x000c370f in STRING_compare (interp=0x31003b0, search_key=0x356ac94, bucket_key=0x1897ad8) at src/hash.c:152 #3 0x000c4593 in parrot_hash_get_bucket (interp=0x31003b0, hash=0x3113bc0, key=0x356ac94) at src/hash.c:846 #4 0x001aa433 in Parrot_Hash_exists_keyed_str (interp=0x31003b0, pmc=0x1883770, key=0x356ac94) at ./src/pmc/hash.pmc:877 #5 0x000c062a in is_loaded (interp=0x31003b0, path=0x356ac94) at src/ dynext.c:144 #6 0x000c1140 in Parrot_load_lib (interp=0x31003b0, lib=0x3522cb8, initializer_unused=0x0) at src/dynext.c:470 #7 0x0021e4a8 in do_loadlib (interp=0x31003b0, lib=0x31b7d30 "'tcl_ops'") at compilers/imcc/imcparser.c:841 #8 0x0021f967 in yyparse (yyscanner=0x3195680, interp=0x31003b0) at compilers/imcc/imcparser.c:2828 #9 0x0022b395 in compile_string (interp=0x31003b0, s=0x28a2c00 ".HLL 'Tcl', ''\n.loadlib 'tcl_ops'\n.namespace \n.include 'languages/tcl/ src/returncodes.pir'\n.sub '_anon' :anon\n .local pmc colons, split, epoch\n colons = get_root_global ['_tcl'], 'colons'\n sp"..., yyscanner=0x3195680) at compilers/imcc/imcc.l:1172 #10 0x000b7f06 in imcc_compile (interp=0x31003b0, s=0x28a2c00 ".HLL 'Tcl', ''\n.loadlib 'tcl_ops'\n.namespace \n.include 'languages/tcl/ src/returncodes.pir'\n.sub '_anon' :anon\n .local pmc colons, split, epoch\n colons = get_root_global ['_tcl'], 'colons'\n sp"..., pasm_file=0, error_message=0xbffff744) at compilers/imcc/ parser_util.c:725 #11 0x000b8207 in imcc_compile_pir_ex (interp=0x31003b0, s=0x28a2c00 ".HLL 'Tcl', ''\n.loadlib 'tcl_ops'\n.namespace \n.include 'languages/ tcl/src/returncodes.pir'\n.sub '_anon' :anon\n .local pmc colons, split, epoch\n colons = get_root_global ['_tcl'], 'colons'\n sp"...) at compilers/imcc/parser_util.c:835 #12 0x000d1507 in pcf_P_Jt (interp=0x31003b0, self=0x1882fa8) at src/ nci.c:2645 #13 0x000a40ee in Parrot_NCI_invoke (interp=0x31003b0, pmc=0x1882fa8, next=0x321f728) at ./src/pmc/nci.pmc:163 #14 0x0016042f in Parrot_Compiler_invoke (interp=0x31003b0, pmc=0x1882fa8, code_ptr=0x321f728) at ./src/pmc/compiler.pmc:38 #15 0x0003498b in Parrot_invokecc_p (cur_opcode=0x321f720, interp=0x31003b0) at src/ops/core.ops:424 #16 0x000e576e in runops_slow_core (interp=0x31003b0, pc=0x321f720) at src/runops_cores.c:191 #17 0x000c6273 in runops_int (interp=0x31003b0, offset=3) at src/ interpreter.c:820 #18 0x00014cb6 in runops (interp=0x31003b0, offs=3) at src/ inter_run.c:99 #19 0x00014f58 in runops_args (interp=0x31003b0, sub=0x1882228, obj=0x282dc60, meth_unused=0x0, sig=0x238840 "vP", ap=0xbffffa1c "? ? \0014I\021\003l?\n") at src/inter_run.c:213 #20 0x00015098 in Parrot_runops_fromc_args (interp=0x31003b0, sub=0x1882228, sig=0x238840 "vP") at src/inter_run.c:290 #21 0x00008d4f in Parrot_runcode (interp=0x31003b0, argc=2, argv=0xbffffb74) at src/embed.c:810 #22 0x000af66c in imcc_run_pbc (interp=0x31003b0, obj_file=0, output_file=0x0, argc=2, argv=0xbffffb74) at compilers/imcc/main.c:627 #23 0x000b00f7 in imcc_run (interp=0x31003b0, sourcefile=0xbffffc1b "tcl.pbc", argc=2, argv=0xbffffb74) at compilers/imcc/main.c:853 #24 0x00002aee in main (argc=2, argv=0xbffffb74) at src/main.c:60 -- Will "Coke" Coleda [EMAIL PROTECTED]
