[svn:parrot] r40820 - branches/pcc_arg_unify/t/op

[allison at svn.parrot.org]

Author: allison
Date: Wed Aug 26 22:58:27 2009
New Revision: 40820
URL: https://trac.parrot.org/parrot/changeset/40820

Log:
[pcc] Pop exception handler when the handler is running, for better
debugging when a second exception is thrown inside the handler.

Modified:
   branches/pcc_arg_unify/t/op/annotate.t

Modified: branches/pcc_arg_unify/t/op/annotate.t
==============================================================================
--- branches/pcc_arg_unify/t/op/annotate.t	Wed Aug 26 20:39:51 2009	(r40819)
+++ branches/pcc_arg_unify/t/op/annotate.t	Wed Aug 26 22:58:27 2009	(r40820)
@@ -36,10 +36,12 @@
 
   failed:
     .local pmc exception
+    pop_eh
     .get_results (exception)
     $P0 = exception.'annotations'()
     isa_ok ($P0, 'Hash', 'annotations gives back hash')
     $I0 = elements $P0
+end
     is ($I0, 0, 'annotations hash empty when none in effect')
     $P0 = exception.'annotations'('line')
     $I0 = isnull $P0
@@ -58,6 +60,7 @@
 
   failed:
     .local pmc exception
+    pop_eh
     .get_results (exception)
 
     $P0 = exception.'annotations'('file')
@@ -106,6 +109,7 @@
 
   failed:
     .local pmc exception, bt, frame, ann
+    pop_eh
     .get_results (exception)
     bt = exception.'backtrace'()
     $I0 = elements bt