cvsuser 01/09/18 05:59:39
Modified: . strnative.c
Log:
Removed unnecessary IV cast in concat.
Revision Changes Path
1.11 +2 -3 parrot/strnative.c
Index: strnative.c
===================================================================
RCS file: /home/perlcvs/parrot/strnative.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- strnative.c 2001/09/16 01:45:51 1.10
+++ strnative.c 2001/09/18 12:59:39 1.11
@@ -1,7 +1,7 @@
/* strnative.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: strnative.c,v 1.10 2001/09/16 01:45:51 thgibbs Exp $
+ * $Id: strnative.c,v 1.11 2001/09/18 12:59:39 thgibbs Exp $
* Overview:
* This defines the native string routines.
* Data Structure and Algorithms:
@@ -42,10 +42,9 @@
if (flags && a->encoding != b->encoding) {
/* Transcode */
}
-
/* b is now in native format */
string_grow(a, a->strlen + b->strlen);
- mem_sys_memcopy((void*)((IV)a->bufstart + a->strlen), b->bufstart, b->strlen);
+ mem_sys_memcopy(a->bufstart + a->strlen, b->bufstart, b->strlen);
a->strlen = a->bufused = a->strlen + b->strlen;
return a;
}
