cvs commit: parrot strnative.c

[thgibbs]

cvsuser     01/09/18 06:42:42

  Modified:    .        strnative.c
  Log:
  Sorry Simon...forgot bustart was a void* not a char*.
  
  Revision  Changes    Path
  1.12      +2 -2      parrot/strnative.c
  
  Index: strnative.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/strnative.c,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -w -r1.11 -r1.12
  --- strnative.c       2001/09/18 12:59:39     1.11
  +++ strnative.c       2001/09/18 13:42:41     1.12
  @@ -1,7 +1,7 @@
   /* strnative.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: strnative.c,v 1.11 2001/09/18 12:59:39 thgibbs Exp $
  + *     $Id: strnative.c,v 1.12 2001/09/18 13:42:41 thgibbs Exp $
    *  Overview:
    *     This defines the native string routines.
    *  Data Structure and Algorithms:
  @@ -44,7 +44,7 @@
       }
       /* b is now in native format */
       string_grow(a, a->strlen + b->strlen);
  -    mem_sys_memcopy(a->bufstart + a->strlen, b->bufstart, b->strlen);
  +    mem_sys_memcopy((void*)((IV)a->bufstart + a->strlen), b->bufstart, b->strlen);
       a->strlen = a->bufused = a->strlen + b->strlen;
       return a;
   }