[svn:parrot] r37739 - in trunk: compilers/pct/src/PAST include/parrot

[tene at svn.parrot.org]

Author: tene
Date: Thu Mar 26 03:29:15 2009
New Revision: 37739
URL: https://trac.parrot.org/parrot/changeset/37739

Log:
Add CONTROL_LEAVE exception type for rakudo.

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir
   trunk/include/parrot/exceptions.h

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Thu Mar 26 03:29:04 2009	(r37738)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Thu Mar 26 03:29:15 2009	(r37739)
@@ -104,6 +104,7 @@
     $P0.'push'(.CONTROL_CONTINUE)
     $P0.'push'(.CONTROL_ERROR)
     $P0.'push'(.CONTROL_TAKE)
+    $P0.'push'(.CONTROL_LEAVE)
     $P0.'push'(.CONTROL_LOOP_NEXT)
     $P0.'push'(.CONTROL_LOOP_LAST)
     $P0.'push'(.CONTROL_LOOP_REDO)
@@ -115,6 +116,9 @@
     $P0.'push'(.CONTROL_OK)
     controltypes['OK'] = $P0
     $P0 = new 'ResizablePMCArray'
+    $P0.'push'(.CONTROL_LEAVE)
+    controltypes['LEAVE'] = $P0
+    $P0 = new 'ResizablePMCArray'
     $P0.'push'(.CONTROL_BREAK)
     controltypes['BREAK'] = $P0
     $P0 = new 'ResizablePMCArray'

Modified: trunk/include/parrot/exceptions.h
==============================================================================
--- trunk/include/parrot/exceptions.h	Thu Mar 26 03:29:04 2009	(r37738)
+++ trunk/include/parrot/exceptions.h	Thu Mar 26 03:29:15 2009	(r37739)
@@ -90,6 +90,7 @@
         CONTROL_CONTINUE,
         CONTROL_ERROR,
         CONTROL_TAKE,
+        CONTROL_LEAVE,
 
         CONTROL_LOOP_NEXT,
         CONTROL_LOOP_LAST,