cvs commit: parrot/src string.c

[Dan Sugalski]

cvsuser     04/09/24 08:10:35

  Modified:    src      string.c
  Log:
  Not properly updating strstart when pinning a string
  
  Revision  Changes    Path
  1.221     +3 -1      parrot/src/string.c
  
  Index: string.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/string.c,v
  retrieving revision 1.220
  retrieving revision 1.221
  diff -u -w -r1.220 -r1.221
  --- string.c  9 Sep 2004 18:45:44 -0000       1.220
  +++ string.c  24 Sep 2004 15:10:35 -0000      1.221
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: string.c,v 1.220 2004/09/09 18:45:44 dan Exp $
  +$Id: string.c,v 1.221 2004/09/24 15:10:35 dan Exp $
   
   =head1 NAME
   
  @@ -2825,6 +2825,8 @@
       memory = mem_sys_allocate(size);
       mem_sys_memcopy(memory, PObj_bufstart(s), size);
       PObj_bufstart(s) = memory;
  +    s->strstart = memory;
  +    s->strlen = size;
       /* Mark the memory as both from the system and immobile */
       PObj_flags_SETTO(s, PObj_get_FLAGS(s) |
           (PObj_immobile_FLAG | PObj_sysmem_FLAG));