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