[svn:parrot] r33920 - in trunk: languages/perl6/src/classes src

[infinoid]

Author: infinoid
Date: Mon Dec 15 08:44:54 2008
New Revision: 33920

Modified:
   trunk/languages/perl6/src/classes/Array.pir
   trunk/languages/perl6/src/classes/IO.pir
   trunk/languages/perl6/src/classes/Protoobject.pir
   trunk/src/exceptions.c

Log:
[cage] Fix the following codetest failures:
* t/codingstd/c_cppcomments.t
* t/codingstd/c_operator.t
* t/codingstd/trailing_space.t

Modified: trunk/languages/perl6/src/classes/Array.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Array.pir (original)
+++ trunk/languages/perl6/src/classes/Array.pir Mon Dec 15 08:44:54 2008
@@ -256,7 +256,7 @@
     push array, $P0
     goto array_loop
   array_done:
-    $I0 = elements self 
+    $I0 = elements self
     splice self, array, 0, $I0
     .return (self)
 .end

Modified: trunk/languages/perl6/src/classes/IO.pir
==============================================================================
--- trunk/languages/perl6/src/classes/IO.pir    (original)
+++ trunk/languages/perl6/src/classes/IO.pir    Mon Dec 15 08:44:54 2008
@@ -63,7 +63,7 @@
 
 our List multi method lines (IO $handle:) is export;
 
-Returns all the lines of a file as a (lazy) List regardless of context. 
+Returns all the lines of a file as a (lazy) List regardless of context.
 See also slurp.
 
 =cut

Modified: trunk/languages/perl6/src/classes/Protoobject.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Protoobject.pir   (original)
+++ trunk/languages/perl6/src/classes/Protoobject.pir   Mon Dec 15 08:44:54 2008
@@ -69,7 +69,7 @@
     setprop proto, '%!WHENCE', WHENCE
     .return (proto)
 .end
-    
+
 
 =back
 

Modified: trunk/src/exceptions.c
==============================================================================
--- trunk/src/exceptions.c      (original)
+++ trunk/src/exceptions.c      Mon Dec 15 08:44:54 2008
@@ -202,12 +202,12 @@
                 Parrot_io_eprintf(interp, "%S\n", message);
             }
             else {
-                Parrot_io_eprintf(interp, "%S\n", 
CONST_STRING(interp,"Warning"));
+                Parrot_io_eprintf(interp, "%S\n", CONST_STRING(interp, 
"Warning"));
             }
 
             /* caution against output swap (with PDB_backtrace) */
             fflush(stderr);
-            //PDB_backtrace(interp);
+            /* PDB_backtrace(interp); */
 
             if (!PMC_IS_NULL(resume)) {
                 return VTABLE_invoke(interp, resume, NULL);