I just noticed some test failures in the tcl suite.

Looks like the following code:

 print "HERE?\n"
 set_eh ignore
   find_lex lexical, -1, var
 clear_eh

Does the following at runtime:

 3713 print "HERE?\n"
HERE?
 3715 set_eh P20       - P20=Exception_Handler=PMC(0xf8eb30)
 3717 find_lex P18, -1, S17    - P18=Array=PMC(0xf8eb48), , S17="b"

And just stops. Exit code 0.

Here's my exception handler:

.namespace [ "_Tcl"]
.emit
__default_handler:
 set P4, P5["_invoke_cc"]
 set P5, P5["_P5"]
 invoke P4
.eom


And here's where I define the invoke pmc used above:

.local pmc ignore newsub ignore, .Exception_Handler, __default_handler


Any ideas?



Reply via email to