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; --