[svn:parrot] r33483 - in trunk: compilers/imcc compilers/ncigen languages/perl6/src/classes src/pmc

Author: bernhard
Date: Thu Dec  4 11:01:29 2008
New Revision: 33483

Modified:
   trunk/compilers/imcc/imcc.y
   trunk/compilers/imcc/pbc.c
   trunk/compilers/ncigen/sqlite_interface_generator.pl
   trunk/languages/perl6/src/classes/Signature.pir
   trunk/src/pmc/string.pmc

Log:
[codingstd] Fix some glitches: c_parens, tabs and trailing_space


Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y	(original)
+++ trunk/compilers/imcc/imcc.y	Thu Dec  4 11:01:29 2008
@@ -1115,7 +1115,7 @@
          {
            $$ = 0;
            IMCC_INFO(interp)->cur_unit->subid = NULL;
-           /* 
+           /*
            IMCC_INFO(interp)->cur_unit->instructions->symregs[0]->subid = str_dup_remove_quotes($3);
            mem_sys_free($3);
            */

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Thu Dec  4 11:01:29 2008
@@ -664,7 +664,7 @@
         SymReg * const r = s->unit->instructions->symregs[0];
 
         /* if names and namespaces are matching - ok */
-        if (r && ((r->subid && (strcmp(r->subid, name) == 0)) 
+        if (r && ((r->subid && (strcmp(r->subid, name) == 0))
                     || (r->name && (strcmp(r->name, name) == 0)))
               && ((sym->unit->_namespace && s->unit->_namespace
                         && (strcmp(sym->unit->_namespace->name, s->unit->_namespace->name) == 0))
@@ -1125,7 +1125,7 @@
   do { \
     mem_sys_free((x)); \
     (x) = NULL; \
-  } while(0);
+  } while (0);
 
 static int
 add_const_pmc_sub(PARROT_INTERP, ARGMOD(SymReg *r), size_t offs, size_t end)

Modified: trunk/compilers/ncigen/sqlite_interface_generator.pl
==============================================================================
--- trunk/compilers/ncigen/sqlite_interface_generator.pl	(original)
+++ trunk/compilers/ncigen/sqlite_interface_generator.pl	Thu Dec  4 11:01:29 2008
@@ -1,5 +1,7 @@
-#!/home/tewk/srcs/parrot/perl6 
+#!/home/tewk/srcs/parrot/perl6
+
 use v6;
+
 evalfile('./ncigen.pbc', lang => 'Parrot');
 evalfile('./compreg.pir', lang => 'Parrot');
 

Modified: trunk/languages/perl6/src/classes/Signature.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Signature.pir	(original)
+++ trunk/languages/perl6/src/classes/Signature.pir	Thu Dec  4 11:01:29 2008
@@ -194,7 +194,7 @@
 
     # If it's optional, the ?.
     $P0 = cur_param["optional"]
-    if null $P0 goto optional_done 
+    if null $P0 goto optional_done
     unless $P0 goto optional_done
     concat s, '?'
   optional_done:

Modified: trunk/src/pmc/string.pmc
==============================================================================
--- trunk/src/pmc/string.pmc	(original)
+++ trunk/src/pmc/string.pmc	Thu Dec  4 11:01:29 2008
@@ -506,7 +506,7 @@
                 const STRING * const v = VTABLE_get_string(INTERP, value);
                 return (INTVAL)(s == v);
             }
-	    else
+            else
                 return 0;
         }
     }

• [svn:parrot] r33483 - in trunk: compilers/imcc compilers/ncigen languages/perl6/src/classes src/pmc by bernhard