This fixes a rather obvious and silly oversight in my patch.

Luke


Index: src/register.c
===================================================================
RCS file: /cvs/public/parrot/src/register.c,v
retrieving revision 1.35
diff -u -r1.35 register.c
--- src/register.c      12 Jan 2004 09:50:26 -0000      1.35
+++ src/register.c      12 Jan 2004 19:54:36 -0000
@@ -107,7 +107,8 @@
     struct RegisterChunkBuf* buf = 
             new_bufferlike_header(interpreter, sizeof(struct RegisterChunkBuf));
     *buf = *chunk;
-    
+    PObj_COW_CLEAR((PObj*)buf);
+
     Parrot_block_DOD(interpreter);
     Parrot_allocate_zeroed(interpreter, (PObj*)buf, stack->chunk_size);
     Parrot_unblock_DOD(interpreter);

Reply via email to