cvsuser 02/11/12 23:35:30
Modified: . resources.c smallobject.c stacks.c
Log:
SET_NULL
Revision Changes Path
1.100 +2 -1 parrot/resources.c
Index: resources.c
===================================================================
RCS file: /cvs/public/parrot/resources.c,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -w -r1.99 -r1.100
--- resources.c 9 Nov 2002 09:13:52 -0000 1.99
+++ resources.c 13 Nov 2002 07:35:30 -0000 1.100
@@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: resources.c,v 1.99 2002/11/09 09:13:52 leo Exp $
+ * $Id: resources.c,v 1.100 2002/11/13 07:35:30 leo Exp $
* Overview:
* Allocate and deallocate tracked resources
* Data Structure and Algorithms:
@@ -50,6 +50,7 @@
new_block->free = alloc_size;
new_block->size = alloc_size;
+ SET_NULL(new_block->next);
new_block->start = (char *)new_block + sizeof(struct Memory_Block);
new_block->top = new_block->start;
1.15 +4 -1 parrot/smallobject.c
Index: smallobject.c
===================================================================
RCS file: /cvs/public/parrot/smallobject.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- smallobject.c 9 Nov 2002 09:13:52 -0000 1.14
+++ smallobject.c 13 Nov 2002 07:35:30 -0000 1.15
@@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: smallobject.c,v 1.14 2002/11/09 09:13:52 leo Exp $
+ * $Id: smallobject.c,v 1.15 2002/11/13 07:35:30 leo Exp $
* Overview:
* Handles the accessing of small object pools (header pools)
* Data Structure and Algorithms:
@@ -150,6 +150,9 @@
struct Small_Object_Pool *pool;
pool = mem_sys_allocate_zeroed(sizeof(struct Small_Object_Pool));
+ SET_NULL(pool->last_Arena);
+ SET_NULL(pool->free_list);
+ SET_NULL(pool->mem_pool);
pool->object_size = object_size;
pool->objects_per_alloc = objects_per_alloc;
pool->add_free_object = add_free_object;
1.49 +6 -1 parrot/stacks.c
Index: stacks.c
===================================================================
RCS file: /cvs/public/parrot/stacks.c,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -w -r1.48 -r1.49
--- stacks.c 9 Nov 2002 11:09:39 -0000 1.48
+++ stacks.c 13 Nov 2002 07:35:30 -0000 1.49
@@ -1,7 +1,7 @@
/* stacks.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: stacks.c,v 1.48 2002/11/09 11:09:39 leo Exp $
+ * $Id: stacks.c,v 1.49 2002/11/13 07:35:30 leo Exp $
* Overview:
* Stack handling routines for Parrot
* Data Structure and Algorithms:
@@ -27,6 +27,9 @@
Stack_Chunk_t *stack = mem_sys_allocate_zeroed(sizeof(Stack_Chunk_t));
stack->flags = NO_STACK_CHUNK_FLAGS;
+ SET_NULL(stack->next);
+ SET_NULL(stack->prev);
+ SET_NULL(stack->buffer);
stack->buffer = new_buffer_header(interpreter);
/* Block DOD from murdering our newly allocated stack->buffer. */
@@ -229,9 +232,11 @@
/* Need to add a new chunk */
Stack_Chunk_t *new_chunk = mem_sys_allocate_zeroed(
sizeof(Stack_Chunk_t));
+ SET_NULL(new_chunk->next);
new_chunk->prev = chunk;
chunk->next = new_chunk;
*stack_p = chunk = new_chunk;
+ SET_NULL(new_chunk->buffer);
new_chunk->buffer = new_buffer_header(interpreter);
Parrot_allocate(interpreter, new_chunk->buffer,
