#1034: attempt to access code outside of current code segment
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version: trunk
Severity: medium | Keywords:
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
See the [http://rt.perl.org/rt3/Ticket/Display.html?id=57088 Original
report].
This PIR errors on exit:
{{{
$ cat tclsh.pir
.sub _main :main
.param pmc argv
load_bytecode 'tcllib.pir'
push_eh file_error
$P1 = find_name '&lsort'
$P1()
file_error:
pop_eh
.end
$ cat tcllib.pir
.sub '&lsort'
.local pmc compare
compare = find_name 'intlike'
$P0 = new 'ResizablePMCArray'
$P0[0] = 1
$P0[1] = 1
$P0.'sort'(compare)
.end
.sub 'intlike'
die 'expected foo'
.end
$ ./parrot tclsh.pir
attempt to access code outside of current code segment
}}}
Note that adding an 'exit 0' before the .end in the first file avoids the
error.
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/1034>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
