David

In your last change (splitting buffer allocation from string) I assume you
also intended to shorten the initial allocation.

Peter Gibbs
EmKel Systems

Index: string.c
===================================================================
RCS file: /home/perlcvs/parrot/string.c,v
retrieving revision 1.30
diff -c -r1.30 string.c
*** string.c    30 Dec 2001 21:08:48 -0000      1.30
--- string.c    31 Dec 2001 06:55:56 -0000
***************
*** 44,50 ****
        encoding = encoding_lookup(type->default_encoding);
      }

!     s = mem_sys_allocate(sizeof(STRING)+buflen);
      s->bufstart = mem_sys_allocate(buflen+1);
      s->encoding = encoding;
      s->flags = flags;
--- 44,50 ----
        encoding = encoding_lookup(type->default_encoding);
      }

!     s = mem_sys_allocate(sizeof(STRING));
      s->bufstart = mem_sys_allocate(buflen+1);
      s->encoding = encoding;
      s->flags = flags;

--


Reply via email to