develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r36087 - in trunk/src: pmc string

From:
bernhard
Date:
January 28, 2009 03:02
Subject:
[svn:parrot] r36087 - in trunk/src: pmc string
Message ID:
20090128110147.68D32CB9AE@x12.develooper.com
Author: bernhard
Date: Wed Jan 28 03:01:46 2009
New Revision: 36087

Modified:
   trunk/src/pmc/fixedintegerarray.pmc
   trunk/src/string/api.c

Log:
[codingstd] tabs.t and trailing_space.t

Modified: trunk/src/pmc/fixedintegerarray.pmc
==============================================================================
--- trunk/src/pmc/fixedintegerarray.pmc	(original)
+++ trunk/src/pmc/fixedintegerarray.pmc	Wed Jan 28 03:01:46 2009
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2001-2008, The Perl Foundation.
+Copyright (C) 2001-2009, The Perl Foundation.
 $Id$
 
 =head1 NAME
@@ -417,7 +417,7 @@
 
         SET_ATTR_size(INTERP, SELF, size);
         GET_ATTR_int_array(INTERP, SELF, int_array);
-        SET_ATTR_int_array(INTERP, SELF, 
+        SET_ATTR_int_array(INTERP, SELF,
                 mem_realloc_n_typed(int_array, size, INTVAL));
         PObj_active_destroy_SET(SELF);
     }

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	(original)
+++ trunk/src/string/api.c	Wed Jan 28 03:01:46 2009
@@ -1143,11 +1143,11 @@
         /* copy s into dest num times */
         UINTVAL length = s->bufused;
         UINTVAL i;
-        char * destpos = dest->strstart;
-	const char * const srcpos = s->strstart;
+        char *             destpos = dest->strstart;
+        const char * const srcpos  = s->strstart;
         for (i = 0; i < num; i++) {
             mem_sys_memcopy(destpos, srcpos, length);
-	    destpos+= length;
+            destpos += length;
         }
 
         dest->bufused = s->bufused * num;



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