Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Side effect between exit & .HLL

0 views
Skip to first unread message

Francois Perrad

unread,
Dec 12, 2006, 2:46:14 AM12/12/06
to parrot-...@perl.org

With the following code :
.sub main
print "reached\n"
exit 1
print "not reached\n"
.end

I obtain :
reached

But after adding a .HLL directive
.HLL 'Lua', 'lua_group'

.sub main
print "reached\n"
exit 1
print "not reached\n"
.end

I obtain :
reached
No exception handler and no message
current instr.: 'main' pc 2 (exit.pir:5)

Is it a feature or not ?

François.


Francois PERRAD

unread,
Dec 18, 2006, 2:20:48 AM12/18/06
to parrot-...@perl.org

The following patch solves the problem, but I haven't a real explanation.

François.

Index: luaboolean.pmc
===================================================================
--- luaboolean.pmc (revision 16180)
+++ luaboolean.pmc (working copy)
@@ -35,7 +35,7 @@
does integer
dynpmc
group lua_group
- hll Lua maps Integer {
+ hll Lua maps Boolean {

/* Class initialization. Caches constant strings that will be used later.
*/

0 new messages