# New Ticket Created by "Clinton A. Pierce" # Please include the string: [netlabs #702] # in the subject line of all future correspondence about this issue. # <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=702 >
To reproduce, sync with CVS, build, run "basic.pl" -- that's all. This version of BASIC is unchanged since it last worked.... The error produced is: The memory at location 0x000000025 could not be "written" The last thing in the Parrot trace is a "concat" statement, yet the call stack seems to indicate that Parrot's in some hash code. More information available upon request. The last instructions run by Parrot: PC=312; OP=571 (save_i); ARGS=(I1=1) PC=314; OP=560 (popi) PC=315; OP=562 (pops) PC=316; OP=628 (ret) PC=979; OP=580 (restore_i); ARGS=(I0=9) PC=981; OP=388 (length_i_s); ARGS=(I1=1, S0="LO") PC=984; OP=206 (ne_i_ic_ic); ARGS=(I1=2, 0, 12) PC=996; OP=182 (eq_i_ic_ic); ARGS=(I4=1, 0, 13) PC=1000; OP=204 (ne_i_i_ic); ARGS=(I0=1, I4=1, 9) PC=1004; OP=378 (concat_s_s); ARGS=(S0="LO", S1="A") The C call stack: buffer_lives(Buffer * 0x00000251) line 291 + 4 bytes mark_hash(Parrot_Interp * 0x002f23a0, _hash * 0x002f7150, PMC * 0x0049d9d8) line 182 PARROT! Parrot_PerlHash_mark + 20 bytes trace_active_PMCs(Parrot_Interp * 0x002f23a0) line 391 + 12 bytes Parrot_do_dod_run(Parrot_Interp * 0x002f23a0) line 531 get_from_free_pool(Parrot_Interp * 0x002f23a0, Resource_Pool * 0x002f2750) line 87 new_string_header(Parrot_Interp * 0x002f23a0, unsigned long 0) line 574 string_make(Parrot_Interp * 0x002f23a0, const void * 0x00000000, unsigned long 3, const parrot_encoding_t * 0x004291b8 _singlebyte_encoding, unsigned long 0, const parrot_chartype_t * 0x00429358 _usascii_chartype) line 50 string_concat(Parrot_Interp * 0x002f23a0, parrot_string_t * 0x002fe9d0, parrot_string_t * 0x002fe990, unsigned long 1) line 278 Parrot_concat_s_s(long * 0x00499420, Parrot_Interp * 0x002f23a0) line 1782 + 38 bytes PARROT! runops_fast_core + 26 bytes runops_generic(long * (Parrot_Interp *, long *)* 0x004011fd, Parrot_Interp * 0x00418cd0 _runops_fast_core, long * 0x002f23a0) line 80 + 21 bytes PARROT! runops_fast_core address 0x00418cd0 MSVCRT! 780115fb() Parrot_runcode(Parrot_Interp * 0x00000001, int 1, char * * 0x002feb50) line 253 main(int 1, char * * 0x002f3c14) line 50 PARROT! mainCRTStartup + 227 bytes KERNEL32! 77e87903()
