Ticket #1399: debug.patch

src/list.c

@@ -183 +183 @@
 */
 
 #include "parrot/parrot.h"
+#include <stdio.h>
 
 /* HEADERIZER HFILE: include/parrot/list.h */
 
@@ -1958 +1959 @@
     if (list->start == 0) {
         chunk       = add_chunk_at_start(interp, list, 0);
         list->start = chunk->items;
+        fprintf(stderr,"UNSHIFT: add chunk:\n"
+                " list@%p[chunklist=[flags=%#lx start@%p len=%u] container=%p first=%p last=%p length=%lu start=%lu\n"
+                "                     type=%#lx cap=%lu collect_runs=%lu n_chunks=%lu grow_policy=%d items_per_chunk=%d item_size=%u]\n"
+                , (void*) list, *list);
+        { List_chunk *c2;
+        for ( c2 = list->first ; c2 ; c2 = c2->next )
+            fprintf(stderr, " chunk@%p[data=[flags=%#lx start@%p len=%u] next@%p prev@%p flags=%#lx items=%ld n_chunks=%ld n_items=%ld]\n"
+                    , (void*) c2, *c2);
+        }
+        fprintf(stderr, "\n");
     }
 
     /* XXX This chunk is unused.  Why are we getting it? */