[svn:parrot] r44613 - in trunk: include/parrot lib/Parrot

cotto at svn.parrot.org cotto at svn.parrot.org
Thu Mar 4 03:24:40 UTC 2010


Author: cotto
Date: Thu Mar  4 03:24:39 2010
New Revision: 44613
URL: https://trac.parrot.org/parrot/changeset/44613

Log:
[ops2c] remove some unused enums from op_jump_t, plus supporting code

Modified:
   trunk/include/parrot/op.h
   trunk/lib/Parrot/OpsFile.pm

Modified: trunk/include/parrot/op.h
==============================================================================
--- trunk/include/parrot/op.h	Thu Mar  4 03:17:54 2010	(r44612)
+++ trunk/include/parrot/op.h	Thu Mar  4 03:24:39 2010	(r44613)
@@ -52,12 +52,8 @@
 /* See lib/Parrot/OpsFile.pm if the names of these values change */
 typedef enum {
     PARROT_JUMP_RELATIVE = 1,
-    PARROT_JUMP_ADDRESS = 2,
-    PARROT_JUMP_POP = 4,
-    PARROT_JUMP_ENEXT = 8,
-    PARROT_JUMP_GNEXT = 16,
-    PARROT_JUMP_UNPREDICTABLE = 32,
-    PARROT_JUMP_RESTART = 64
+    PARROT_JUMP_ADDRESS  = 2,
+    PARROT_JUMP_ENEXT    = 4
 } op_jump_t;
 
 /* NOTE: Sure wish we could put the types here... */

Modified: trunk/lib/Parrot/OpsFile.pm
==============================================================================
--- trunk/lib/Parrot/OpsFile.pm	Thu Mar  4 03:17:54 2010	(r44612)
+++ trunk/lib/Parrot/OpsFile.pm	Thu Mar  4 03:24:39 2010	(r44613)
@@ -561,14 +561,6 @@
         or_flag( \$jumps, "PARROT_JUMP_ADDRESS"  ) if $absolute;
         or_flag( \$jumps, "PARROT_JUMP_RELATIVE" ) if $branch;
         or_flag( \$jumps, "PARROT_JUMP_ENEXT"    ) if $next;
-        or_flag( \$jumps, "PARROT_JUMP_RESTART"  ) if $restart;
-
-        # I'm assuming the op branches to the value in the last argument.
-        if ( ($jumps)
-            && ( $fixedargs[ @fixedargs - 1 ] )
-            && ( $fixedargs[ @fixedargs - 1 ] eq 'i' ) ) {
-            or_flag( \$jumps, "PARROT_JUMP_GNEXT" );
-        }
 
         $op->jump($jumps);
         $self->push_op($op);


More information about the parrot-commits mailing list