cvsuser 04/01/13 01:21:22
Modified: . CREDITS
src register.c
t/pmc objects.t
Log:
Small register stack fix
Revision Changes Path
1.15 +1 -1 parrot/CREDITS
Index: CREDITS
===================================================================
RCS file: /cvs/public/parrot/CREDITS,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- CREDITS 12 Jan 2004 12:43:29 -0000 1.14
+++ CREDITS 13 Jan 2004 09:21:17 -0000 1.15
@@ -142,7 +142,7 @@
N: Michael G. Schwern
N: Michael Scott
-D: Getting Started Guide for Parrot
+D: Getting Started Guide for Parrot, many doc fixes
D: Mac OS X build fixes
E: [EMAIL PROTECTED]
W: http://xrl.us/sml
1.36 +26 -24 parrot/src/register.c
Index: register.c
===================================================================
RCS file: /cvs/public/parrot/src/register.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -w -r1.35 -r1.36
--- register.c 12 Jan 2004 09:50:26 -0000 1.35
+++ register.c 13 Jan 2004 09:21:20 -0000 1.36
@@ -1,7 +1,7 @@
/* register.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: register.c,v 1.35 2004/01/12 09:50:26 leo Exp $
+ * $Id: register.c,v 1.36 2004/01/13 09:21:20 leo Exp $
* Overview:
* Register handling routines
* Data Structure and Algorithms:
@@ -108,8 +108,10 @@
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_allocate(interpreter, buf, stack->chunk_size);
Parrot_unblock_DOD(interpreter);
memcpy(buf->data.bufstart, chunk->data.bufstart, stack->chunk_size);
1.14 +1 -0 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/objects.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- objects.t 12 Jan 2004 19:11:24 -0000 1.13
+++ objects.t 13 Jan 2004 09:21:22 -0000 1.14
@@ -830,6 +830,7 @@
set P4, P1[P2]
print P4
print "\n"
+ end
CODE
