[svn:parrot] r37816 - in trunk: lib/Parrot src/ops

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Mon Mar 30 02:31:40 UTC 2009


Author: jkeenan
Date: Mon Mar 30 02:31:38 2009
New Revision: 37816
URL: https://trac.parrot.org/parrot/changeset/37816

Log:
lib/Parrot/Ops2pm.pm:  prepare_real_ops():  Deleting code which tests whether
opcodes have been renumbered upon addition/deletion of new, non-experimental
codes.  Not appropriate post 1.0.  Cf.:
https://trac.parrot.org/parrot/ticket/489.
src/ops/core.ops:  Definition of load_language op was (presumably erroneously)
tucked inside POD block.  Pulled it outside POD.  Cf.:  TT 489, comments 4 and
5.

Modified:
   trunk/lib/Parrot/Ops2pm.pm
   trunk/src/ops/core.ops

Modified: trunk/lib/Parrot/Ops2pm.pm
==============================================================================
--- trunk/lib/Parrot/Ops2pm.pm	Sun Mar 29 19:49:05 2009	(r37815)
+++ trunk/lib/Parrot/Ops2pm.pm	Mon Mar 30 02:31:38 2009	(r37816)
@@ -210,7 +210,7 @@
 =item * Comment
 
 It is at this point that warnings about experimental opcodes will be
-emitted.  Example:
+emitted if you are working in a checkout from the Parrot repository.  Example:
 
     trap                      1247       experimental, not in ops.num
 
@@ -285,9 +285,6 @@
         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;
     }

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops	Sun Mar 29 19:49:05 2009	(r37815)
+++ trunk/src/ops/core.ops	Mon Mar 30 02:31:38 2009	(r37816)
@@ -170,13 +170,12 @@
 Load the compiler libraries for a language $1. Search the library path to
 locate the main compiler file in the standard locations.
 
+=cut
+
 inline op load_language(in STR) :load_file {
     Parrot_load_language(interp, $1);
 }
 
-
-=cut
-
 =back
 
 =cut


More information about the parrot-commits mailing list