[svn:parrot] r38110 - trunk/lib/Parrot

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Wed Apr 15 02:22:39 UTC 2009


Author: jkeenan
Date: Wed Apr 15 02:22:39 2009
New Revision: 38110
URL: https://trac.parrot.org/parrot/changeset/38110

Log:
Restoring previously deleted code, per Coke's comment in https://trac.parrot.org/parrot/ticket/489.

Modified:
   trunk/lib/Parrot/Ops2pm.pm

Modified: trunk/lib/Parrot/Ops2pm.pm
==============================================================================
--- trunk/lib/Parrot/Ops2pm.pm	Wed Apr 15 02:16:47 2009	(r38109)
+++ trunk/lib/Parrot/Ops2pm.pm	Wed Apr 15 02:22:39 2009	(r38110)
@@ -285,6 +285,9 @@
         if ( $n != $el->{CODE} ) {
             die "op $opname: number mismatch: ops.num $n vs. core.ops $el->{CODE}";
         }
+        if ( $seq != $el->{CODE} ) {
+            die "op $opname: sequence mismatch: ops.num $seq vs. core.ops $el->{CODE}";
+        }
         push @{ $real_ops->{OPS} }, $el;
         ++$seq;
     }


More information about the parrot-commits mailing list