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


The following code makes parrot bus error:

.sub foo
   .include 'interpinfo.pasm'
   $P1 = interpinfo .INTERPINFO_NAMESPACE_ROOT
   $P2 = $P1['_tcl']
   $P2['a'] = 'whee'
.end

Program received signal EXC_BAD_ACCESS, Could not access memory.
Reason: KERN_PROTECTION_FAILURE at address: 0x00000010
0x0008dd70 in Parrot_set_p_kc_sc (cur_opcode=0xe15b5c,  
interpreter=0xe00240) at src/ops/set.ops:471
471         $1->vtable->set_string_keyed(interpreter, $1, $2, $3);
(gdb) bt
#0  0x0008dd70 in Parrot_set_p_kc_sc (cur_opcode=0xe15b5c,  
interpreter=0xe00240) at src/ops/set.ops:471
#1  0x002160dc in runops_slow_core (interpreter=0xe00240,  
pc=0xe15b5c) at src/runops_cores.c:180
#2  0x00059168 in runops_int (interpreter=0xe00240, offset=0) at src/ 
interpreter.c:775
#3  0x00051a64 in runops (interpreter=0xe00240, offs=0) at src/ 
inter_run.c:81
#4  0x00051d4c in runops_args (interpreter=0xe00240, sub=0x2572360,  
obj=0x281ace0, meth=0x0, sig=0x2a47cc "vP", ap=0xbffff6c4 "\002W#H")  
at src/inter_run.c:180
#5  0x00051ee0 in Parrot_runops_fromc_args (interpreter=0xe00240,  
sub=0x2572360, sig=0x2a47cc "vP") at src/inter_run.c:274
#6  0x00019220 in Parrot_runcode (interpreter=0xe00240, argc=1,  
argv=0xbffff848) at src/embed.c:799
#7  0x00004548 in main (argc=1, argv=0xbffff848) at compilers/imcc/ 
main.c:686

Reply via email to