# New Ticket Created by Leopold Toetsch
# Please include the string: [perl #16926]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16926 >
Hi,
these static functions are
- never used
- produce ugly warnings with -Wall, which implies
- use -Wno-unsed
- which may hide over orphaned code
Same applies for buffer_lives() in dod.h.
Could this function go somewhere else, or be a #define?
leo
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/36304/29342/5fefec/headers.h.diff
--- headers.h Fri Aug 23 11:37:01 2002
+++ /home/lt/src/parrot-leo/include/parrot/headers.h Mon Sep 2 10:05:20 2002
@@ -19,20 +19,6 @@
#define BUFFER_ALIGNMENT 16
#define STRING_ALIGNMENT 4
-
-static void *
-get_from_free_pool(struct Parrot_Interp *interpreter,
- struct Small_Object_Pool *pool)
-{
- return (*pool->get_free_object)(interpreter, pool);
-}
-static void
-add_to_free_pool(struct Parrot_Interp *interpreter,
- struct Small_Object_Pool *pool, void* to_free)
-{
- (*pool->add_free_object)(interpreter, pool, to_free);
-}
-
/** Header Management Functions **/
/* pmc header small-object methods */
