cvs commit: parrot/src string.c

[Dan Sugalski]

cvsuser     04/10/04 11:20:05

  Modified:    src      string.c
  Log:
  No, we shouldn't copy over the string length for pinned strings
  
  Revision  Changes    Path
  1.225     +1 -2      parrot/src/string.c
  
  Index: string.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/string.c,v
  retrieving revision 1.224
  retrieving revision 1.225
  diff -u -w -r1.224 -r1.225
  --- string.c  2 Oct 2004 15:22:05 -0000       1.224
  +++ string.c  4 Oct 2004 18:20:05 -0000       1.225
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: string.c,v 1.224 2004/10/02 15:22:05 jrieks Exp $
  +$Id: string.c,v 1.225 2004/10/04 18:20:05 dan Exp $
   
   =head1 NAME
   
  @@ -2839,7 +2839,6 @@
       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));