- added Imager's memory debugging code in an attempt to find the
[poe-xs-queue-array.git] / Array.xs
index 4f67a59c6f30af8003d981d4a4fd4539e4a9dba8..338f8283d4cb3d4b3c889f959d013e60c4b30d9f 100644 (file)
--- a/Array.xs
+++ b/Array.xs
@@ -4,6 +4,7 @@
 #include <string.h> /* for memmove() mostly */
 #include <errno.h> /* errno values */
 #include "queue.h"
+#include "alloc.h"
 
 /* this typedef lets the standard T_PTROBJ typemap handle the
 conversion between perl class and C type and back again */
@@ -110,7 +111,7 @@ pq_remove_items(pq, filter, ...)
           }
        }
        if (removed_entries)
-          free(removed_entries);
+          myfree(removed_entries);
 
 void
 pq_adjust_priority(pq, id, filter, delta)
@@ -165,9 +166,13 @@ pq_peek_items(pq, filter, ...)
            rv = newRV_noinc((SV *)av);
            PUSHs(sv_2mortal(rv));
          }
-          free(ret_items);
+          myfree(ret_items);
        }
 
 void
 pq_dump(pq)
        POE::XS::Queue::Array pq
+
+void
+pq_verify(pq)
+       POE::XS::Queue::Array pq