[svn:parrot] r40295 - trunk/src/ops

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Mon Jul 27 22:11:29 2009
New Revision: 40295
URL: https://trac.parrot.org/parrot/changeset/40295

Log:
[ops] on suggestion from Coke++, move the new opcodes to experimental.ops

Modified:
   trunk/src/ops/core.ops
   trunk/src/ops/experimental.ops

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops	Mon Jul 27 21:56:22 2009	(r40294)
+++ trunk/src/ops/core.ops	Mon Jul 27 22:11:29 2009	(r40295)
@@ -707,27 +707,6 @@
     $1        = (INTVAL)ptr;
 }
 
-=item B<set_label>(invar PMC, invar LABEL)
-
-Sets the opcode_t* label value for the given PMC. This is basically only
-useful for PMCs such as Sub, Continuation, ExceptionHandler and derivatives
-
-=item B<get_label>(out INT, invar PMC)
-
-Gets the opcode_t* label value from the given PMC. This is basically only
-useful for PMCs such as Sub, Continuation, ExceptionHandler and derivatives
-
-=cut
-
-inline op set_label(invar PMC, inconst LABEL) {
-    VTABLE_set_pointer(interp, $1, (CUR_OPCODE + $2));
-}
-
-inline op get_label(out INT, invar PMC) {
-    void * ptr = VTABLE_get_pointer(interp, $2);
-    $1         =  (INTVAL)ptr;
-}
-
 =back
 
 =cut

Modified: trunk/src/ops/experimental.ops
==============================================================================
--- trunk/src/ops/experimental.ops	Mon Jul 27 21:56:22 2009	(r40294)
+++ trunk/src/ops/experimental.ops	Mon Jul 27 22:11:29 2009	(r40295)
@@ -51,6 +51,27 @@
 #endif
 }
 
+=item B<set_label>(invar PMC, invar LABEL)
+
+Sets the opcode_t* label value for the given PMC. This is basically only
+useful for PMCs such as Sub, Continuation, ExceptionHandler and derivatives
+
+=item B<get_label>(out INT, invar PMC)
+
+Gets the opcode_t* label value from the given PMC. This is basically only
+useful for PMCs such as Sub, Continuation, ExceptionHandler and derivatives
+
+=cut
+
+inline op set_label(invar PMC, inconst LABEL) {
+    VTABLE_set_pointer(interp, $1, (CUR_OPCODE + $2));
+}
+
+inline op get_label(out INT, invar PMC) {
+    void * ptr = VTABLE_get_pointer(interp, $2);
+    $1         =  (INTVAL)ptr;
+}
+
 =head1 COPYRIGHT
 
 Copyright (C) 2001-2009, Parrot Foundation.