Switch PAST::Compiler to use push_cached_eh op

parrot · Jan 25, 2011 · 06de726 · 06de726
1 parent 50fc603
commit 06de726
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/compilers/pct/src/PAST/Compiler.pir b/compilers/pct/src/PAST/Compiler.pir
@@ -931,9 +931,10 @@ Return the POST representation of a C<PAST::Block>.
     $S0 = self.'unique'('control_')
     ctrllabel = $P0.'new'('result'=>$S0)
     $S0 = self.'uniquereg'('P')
-    bpost.'push_pirop'('new', $S0, "['ExceptionHandler']", '.CONTROL_RETURN')
-    bpost.'push_pirop'('set_addr', $S0, ctrllabel)
-    bpost.'push_pirop'('push_eh', $S0)
+    #bpost.'push_pirop'('new', $S0, "['ExceptionHandler']", '.CONTROL_RETURN')
+    #bpost.'push_pirop'('set_addr', $S0, ctrllabel)
+    #bpost.'push_pirop'('push_eh', $S0)
+    bpost.'push_pirop'('push_cached_eh', '.CONTROL_RETURN', ctrllabel)
     bpost.'add_directive'('.include "except_types.pasm"')
 
   children_past: