develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33691 - in branches/pdd22io_part2: compilers/imcc languages/perl6/src/classes src src/ops

From:
particle
Date:
December 8, 2008 19:54
Subject:
[svn:parrot] r33691 - in branches/pdd22io_part2: compilers/imcc languages/perl6/src/classes src src/ops
Message ID:
20081209035423.A5D87CB9AF@x12.develooper.com
Author: particle
Date: Mon Dec  8 19:54:22 2008
New Revision: 33691

Modified:
   branches/pdd22io_part2/compilers/imcc/parser_util.c
   branches/pdd22io_part2/languages/perl6/src/classes/Object.pir
   branches/pdd22io_part2/src/embed.c
   branches/pdd22io_part2/src/ops/io.ops

Log:
[CAGE] codingstd fixups

Modified: branches/pdd22io_part2/compilers/imcc/parser_util.c
==============================================================================
--- branches/pdd22io_part2/compilers/imcc/parser_util.c	(original)
+++ branches/pdd22io_part2/compilers/imcc/parser_util.c	Mon Dec  8 19:54:22 2008
@@ -225,13 +225,15 @@
 
         if (args[i]->type & (VTCONST|VT_CONSTP)) {
 #if IMC_TRACE_HIGH
-            Parrot_io_eprintf(NULL, " (%cc)%s", tolower((unsigned char)args[i]->set), args[i]->name);
+            Parrot_io_eprintf(NULL, " (%cc)%s",
+                    tolower((unsigned char)args[i]->set), args[i]->name);
 #endif
             *dest++ = 'c';
         }
 #if IMC_TRACE_HIGH
         else
-            Parrot_io_eprintf(NULL, " (%c)%s", tolower((unsigned char)args[i]->set), args[i]->name);
+            Parrot_io_eprintf(NULL, " (%c)%s",
+                    tolower((unsigned char)args[i]->set), args[i]->name);
 #endif
     }
     *dest = '\0';

Modified: branches/pdd22io_part2/languages/perl6/src/classes/Object.pir
==============================================================================
--- branches/pdd22io_part2/languages/perl6/src/classes/Object.pir	(original)
+++ branches/pdd22io_part2/languages/perl6/src/classes/Object.pir	Mon Dec  8 19:54:22 2008
@@ -509,7 +509,7 @@
     # Get all possible methods.
     .local pmc methods
     methods = self.'!MANY_DISPATCH_HELPER'(method_name, pos_args, named_args)
-    
+
     # Do we have any?
     $I0 = elements methods
     if $I0 goto invoke
@@ -619,7 +619,7 @@
     # If we're here, found a method. But is it a multi?
     $I0 = isa cur_meth, "Perl6MultiSub"
     if $I0 goto multi_dispatch
-    
+
     # Single dispatch - add to the result list.
     push result_list, cur_meth
     goto mro_loop

Modified: branches/pdd22io_part2/src/embed.c
==============================================================================
--- branches/pdd22io_part2/src/embed.c	(original)
+++ branches/pdd22io_part2/src/embed.c	Mon Dec  8 19:54:22 2008
@@ -1059,10 +1059,12 @@
             }
         }
 
-        Parrot_io_printf(interp, "%012i-%012i", op_code_seq_num, line->opcode - interp->code->base.data);
+        Parrot_io_printf(interp, "%012i-%012i",
+                op_code_seq_num, line->opcode - interp->code->base.data);
 
         if (debugs)
-            Parrot_io_printf(interp, " %06i: ", interp->code->debugs->base.data[op_code_seq_num]);
+            Parrot_io_printf(interp, " %06i: ",
+                    interp->code->debugs->base.data[op_code_seq_num]);
 
         /* If it has a label print it */
         if (line->label)

Modified: branches/pdd22io_part2/src/ops/io.ops
==============================================================================
--- branches/pdd22io_part2/src/ops/io.ops	(original)
+++ branches/pdd22io_part2/src/ops/io.ops	Mon Dec  8 19:54:22 2008
@@ -1,5 +1,6 @@
 /*
  * $Id$
+ * Copyright (C) 2002-2008, The Perl Foundation.
 ** io.ops
 */
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About