cvsuser 03/01/12 03:11:11
Modified: . KNOWN_ISSUES headers.c smallobject.c
Log:
remove duplicated code
Revision Changes Path
1.6 +0 -1 parrot/KNOWN_ISSUES
Index: KNOWN_ISSUES
===================================================================
RCS file: /cvs/public/parrot/KNOWN_ISSUES,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- KNOWN_ISSUES 23 Dec 2002 09:39:45 -0000 1.5
+++ KNOWN_ISSUES 12 Jan 2003 11:11:11 -0000 1.6
@@ -14,7 +14,6 @@
- PIO subsystem leaks file handles (ParrotIO structures)
- regexen leak bitmaps
-- scratchpad
- string_to_cstring returns a malloced string, which isn't freed everywhere
Regexes
1.32 +1 -19 parrot/headers.c
Index: headers.c
===================================================================
RCS file: /cvs/public/parrot/headers.c,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -w -r1.31 -r1.32
--- headers.c 11 Jan 2003 10:59:41 -0000 1.31
+++ headers.c 12 Jan 2003 11:11:11 -0000 1.32
@@ -1,7 +1,7 @@
/* headers.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: headers.c,v 1.31 2003/01/11 10:59:41 leo Exp $
+ * $Id: headers.c,v 1.32 2003/01/12 11:11:11 leo Exp $
* Overview:
* Header management functions. Handles getting of various headers,
* and pool creation
@@ -71,14 +71,6 @@
return pmc;
}
-void
-alloc_pmcs(struct Parrot_Interp *interpreter, struct Small_Object_Pool *pool)
-{
- interpreter->header_allocs_since_last_collect++;
- alloc_objects(interpreter, pool);
-}
-
-
/** Buffer Header Functions for small-object lookup table **/
void *
@@ -106,14 +98,6 @@
return buffer;
}
-void
-alloc_buffers(struct Parrot_Interp *interpreter,
- struct Small_Object_Pool *pool)
-{
- interpreter->header_allocs_since_last_collect++;
- alloc_objects(interpreter, pool);
-}
-
/** Header Pool Creation Functions **/
struct Small_Object_Pool *
@@ -126,7 +110,6 @@
pmc_pool->add_free_object = add_free_pmc;
pmc_pool->get_free_object = get_free_pmc;
- pmc_pool->alloc_objects = alloc_pmcs;
pmc_pool->more_objects = more_traceable_objects;
pmc_pool->mem_pool = NULL;
return pmc_pool;
@@ -147,7 +130,6 @@
new_small_object_pool(interpreter, buffer_size, num_headers);
pool->get_free_object = get_free_buffer;
- pool->alloc_objects = alloc_buffers;
pool->more_objects = more_traceable_objects;
pool->mem_pool = interpreter->arena_base->memory_pool;
pool->align_1 = BUFFER_ALIGNMENT - 1;
1.20 +2 -1 parrot/smallobject.c
Index: smallobject.c
===================================================================
RCS file: /cvs/public/parrot/smallobject.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -w -r1.19 -r1.20
--- smallobject.c 3 Jan 2003 21:27:38 -0000 1.19
+++ smallobject.c 12 Jan 2003 11:11:11 -0000 1.20
@@ -1,7 +1,7 @@
/* resources.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: smallobject.c,v 1.19 2003/01/03 21:27:38 leo Exp $
+ * $Id: smallobject.c,v 1.20 2003/01/12 11:11:11 leo Exp $
* Overview:
* Handles the accessing of small object pools (header pools)
* Data Structure and Algorithms:
@@ -125,6 +125,7 @@
new_arena->prev->next = new_arena;
}
pool->last_Arena = new_arena;
+ interpreter->header_allocs_since_last_collect++;
/* Move all the new objects into the free list */
object = new_arena->start_objects;
