[svn:parrot] r43111 - trunk/compilers/pct/src/PAST

[tene at svn.parrot.org]

Author: tene
Date: Wed Dec 16 18:53:55 2009
New Revision: 43111
URL: https://trac.parrot.org/parrot/changeset/43111

Log:
Small fix to remove CONTROL_ERROR from the CONTROL handled types.  This API needs more-significant work, but this is enough for now.

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Wed Dec 16 16:45:45 2009	(r43110)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Wed Dec 16 18:53:55 2009	(r43111)
@@ -134,7 +134,7 @@
     $P0.'push'(.CONTROL_OK)
     $P0.'push'(.CONTROL_BREAK)
     $P0.'push'(.CONTROL_CONTINUE)
-    $P0.'push'(.CONTROL_ERROR)
+    #$P0.'push'(.CONTROL_ERROR)
     $P0.'push'(.CONTROL_TAKE)
     $P0.'push'(.CONTROL_LEAVE)
     $P0.'push'(.CONTROL_LOOP_NEXT)
@@ -142,15 +142,12 @@
     $P0.'push'(.CONTROL_LOOP_REDO)
     controltypes['CONTROL']   = $P0
     $P0 = new 'ResizablePMCArray'
-    $P0.'push'(.CONTROL_TAKE)
-    controltypes['GATHER']   = $P0
+    $P0.'push'(.CONTROL_RETURN)
+    controltypes['RETURN']   = $P0
     $P0 = new 'ResizablePMCArray'
     $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'
@@ -160,6 +157,12 @@
     $P0.'push'(.CONTROL_ERROR)
     controltypes['ERROR'] = $P0
     $P0 = new 'ResizablePMCArray'
+    $P0.'push'(.CONTROL_TAKE)
+    controltypes['GATHER']   = $P0
+    $P0 = new 'ResizablePMCArray'
+    $P0.'push'(.CONTROL_LEAVE)
+    controltypes['LEAVE'] = $P0
+    $P0 = new 'ResizablePMCArray'
     $P0.'push'(.CONTROL_LOOP_NEXT)
     controltypes['NEXT'] = $P0
     $P0 = new 'ResizablePMCArray'