cvs commit: parrot strnative.c

[simon]

simon       01/09/14 02:06:50

  Modified:    .        strnative.c
  Log:
  substr growth fixup
  
  Courtesy of: Gibbs Tanton - tgibbs <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.7       +1 -1      parrot/strnative.c
  
  Index: strnative.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/strnative.c,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- strnative.c       2001/09/14 09:03:44     1.6
  +++ strnative.c       2001/09/14 09:06:50     1.7
  @@ -46,7 +46,7 @@
            dest->encoding = &(Parrot_string_vtable[enc_native]);
       
       /* Offset and length have already been "normalized" */
  -    string_grow(dest, src->strlen - length);
  +    string_grow(dest, length);
       mem_sys_memcopy(dest->bufstart, src->bufstart + offset, length);
       dest->strlen = dest->bufused = length;