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

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Sun Jun  6 07:58:00 2010
New Revision: 47426
URL: https://trac.parrot.org/parrot/changeset/47426

Log:
[pct]:  Add CONTROL_EXIT to PAST::Control handling.

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

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Sun Jun  6 07:57:55 2010	(r47425)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Sun Jun  6 07:58:00 2010	(r47426)
@@ -137,7 +137,7 @@
     ##  type of exception handler we support
     .local pmc controltypes
     controltypes = new 'Hash'
-    controltypes['CONTROL']  = '.CONTROL_RETURN, .CONTROL_OK, .CONTROL_BREAK, .CONTROL_CONTINUE, .CONTROL_TAKE, .CONTROL_LEAVE, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_LAST, .CONTROL_LOOP_REDO'
+    controltypes['CONTROL']  = '.CONTROL_RETURN, .CONTROL_OK, .CONTROL_BREAK, .CONTROL_CONTINUE, .CONTROL_TAKE, .CONTROL_LEAVE, .CONTROL_EXIT, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_LAST, .CONTROL_LOOP_REDO'
     controltypes['RETURN']   = '.CONTROL_RETURN'
     controltypes['OK']       = '.CONTROL_OK'
     controltypes['BREAK']    = '.CONTROL_BREAK'
@@ -145,6 +145,7 @@
     controltypes['ERROR']    = '.CONTROL_ERROR'
     controltypes['GATHER']   = '.CONTROL_TAKE'
     controltypes['LEAVE']    = '.CONTROL_LEAVE'
+    controltypes['EXIT']     = '.CONTROL_EXIT'
     controltypes['NEXT']     = '.CONTROL_NEXT'
     controltypes['LAST']     = '.CONTROL_LAST'
     controltypes['REDO']     = '.CONTROL_REDO'