#180: .annotate fails inside PIR compiler
--------------------+-------------------------------------------------------
Reporter: coke | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: none | Version:
Severity: medium | Keywords: tcl
Lang: | Patch:
Platform: |
--------------------+-------------------------------------------------------
Testing to make sure that the annotations in a dynamically compiled bit of
PIR don't see the annotations in the code that invoked the compiler,
tried:
{{{
.sub a
.annotate 'file', 'a.tcl'
.annotate 'line', 3
$P1 = compreg 'PIR'
$S0 = <<"END_PIR"
.sub joe
.annotate 'file', 'b.tcl'
die "what?"
.end
END_PIR
$P2 = $P1($S0)
$P2()
push_eh eek
joe()
pop_eh
end
eek:
.get_results($P31)
pop_eh
$P32 = $P31.'backtrace'()
_dumper($P32)
.end
.include "library/dumper.pir"
}}}
Dies with:
{{{
src/packfile.c:1575: failed assertion 'dir'
Abort trap
}}}
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/180>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
