[perl #38907] namespace-related bus error

[Will Coleda]

# 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

[Leopold Toetsch]

Will Coleda (via RT) wrote:

> 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.

Fixed in 12201.

Thanks for the test case,
leo