[svn:parrot] r36087 - in trunk/src: pmc string
[email protected] Wed, 28 Jan 2009 03:01:47 -0800 (PST)
| Newsgroups | perl.cvs.parrot |
|---|---|
| Message-ID | <[email protected]> |
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;