Index: dod.c
===================================================================
RCS file: /cvs/public/parrot/dod.c,v
retrieving revision 1.25
diff -u -r1.25 dod.c
--- dod.c	28 Oct 2002 13:58:04 -0000	1.25
+++ dod.c	3 Nov 2002 10:43:01 -0000
@@ -535,11 +546,9 @@
 void
 Parrot_do_dod_run(struct Parrot_Interp *interpreter)
 {
-#ifdef GC_IS_MALLOC
     struct Small_Object_Pool *header_pool;
     int j;
 
-#endif /* GC_IS_MALLOC */
     if (interpreter->DOD_block_level) {
         return;
     }
@@ -558,13 +567,6 @@
     free_unused_PMCs(interpreter);
 
     /* And unused buffers on the free list */
-#ifndef GC_IS_MALLOC
-    free_unused_buffers(interpreter,
-                        interpreter->arena_base->string_header_pool);
-    free_unused_buffers(interpreter,
-                        interpreter->arena_base->buffer_header_pool);
-
-#else /* GC_IS_MALLOC */
     for (j = -2; j < (INTVAL) interpreter->arena_base->num_sized; j++) {
         if (j == -2)
             header_pool = interpreter->arena_base->string_header_pool;
@@ -572,7 +574,7 @@
             header_pool = interpreter->arena_base->buffer_header_pool;
         else
             header_pool = interpreter->arena_base->sized_header_pools[j];
-        if (header_pool && j < 0) {
+        if (header_pool) {
             free_unused_buffers(interpreter, header_pool);
         }
     }
@@ -580,7 +582,6 @@
 #if 0
     interpreter->memory_allocated = mallinfo().uordblks;
 #endif
-#endif /* GC_IS_MALLOC */
     /* Note it */
     interpreter->dod_runs++;