[svn:parrot] r40304 - in trunk: runtime/parrot/library src/ops

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Jul 28 10:56:30 2009
New Revision: 40304
URL: https://trac.parrot.org/parrot/changeset/40304

Log:
[cage] Fix codetest failures. Patch courtesy mikehh++

Modified:
   trunk/runtime/parrot/library/P6object.pir
   trunk/src/ops/experimental.ops

Modified: trunk/runtime/parrot/library/P6object.pir
==============================================================================
--- trunk/runtime/parrot/library/P6object.pir	Tue Jul 28 08:35:00 2009	(r40303)
+++ trunk/runtime/parrot/library/P6object.pir	Tue Jul 28 10:56:30 2009	(r40304)
@@ -765,7 +765,7 @@
     # Perl6Object accepts anything.
     $S0 = parrotclass
     if $S0 == 'Perl6Object' goto accept_anyway
-    
+
     # Otherwise, just try a normal check.
     $I0 = can topic, 'HOW'
     unless $I0 goto end
@@ -774,7 +774,7 @@
     if $I0 goto end
     $I0 = does topic, parrotclass
     if $I0 goto end
-    
+
     # If this fails, and we want Any, and it's something form outside
     # of the Perl 6 world, we'd best just accept it.
     unless $S0 == 'Any' goto end
@@ -810,4 +810,3 @@
 #   fill-column: 100
 # End:
 # vim: expandtab shiftwidth=4 ft=pir:
-

Modified: trunk/src/ops/experimental.ops
==============================================================================
--- trunk/src/ops/experimental.ops	Tue Jul 28 08:35:00 2009	(r40303)
+++ trunk/src/ops/experimental.ops	Tue Jul 28 10:56:30 2009	(r40304)
@@ -51,7 +51,9 @@
 #endif
 }
 
-=item B<set_label>(invar PMC, invar LABEL)
+=over 4
+
+=item B<set_label>(invar PMC, inconst 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
@@ -61,6 +63,8 @@
 Gets the opcode_t* label value from the given PMC. This is basically only
 useful for PMCs such as Sub, Continuation, ExceptionHandler and derivatives
 
+=back
+
 =cut
 
 inline op set_label(invar PMC, inconst LABEL) {