if (dump_dies)
                fputs(s, stderr);
 
+       if (cache)
+               die_debug_r("cache %p string '%s'", cache, s);
        die_map_add_string(cache, s);
 }
 
        list_for_each_entry(df, &cache->fragments, list) {
                switch (df->type) {
                case FRAGMENT_STRING:
+                       die_debug_b("cache %p STRING '%s'", cache,
+                                   df->data.str);
                        process(NULL, df->data.str);
                        break;
                case FRAGMENT_LINEBREAK:
                        if (!dwarf_die_addr_die(dwarf_cu_getdwarf(die->cu),
                                                (void *)df->data.addr, &child))
                                error("dwarf_die_addr_die failed");
+                       die_debug_b("cache %p DIE addr %" PRIxPTR " tag %x",
+                                   cache, df->data.addr, dwarf_tag(&child));
                        check(process_type(state, NULL, &child));
                        break;
                default:
        cache = die_map_get(die, want_state);
 
        if (cache->state == want_state) {
+               die_debug_g("cached addr %p tag %x -- %s", die->addr, tag,
+                           die_state_name(cache->state));
+
                process_cached(state, cache, die);
                die_map_add_die(parent, cache);
 
                return 0;
        }
 
+       die_debug_g("addr %p tag %x -- %s -> %s", die->addr, tag,
+                   die_state_name(cache->state), die_state_name(want_state));
+
        switch (tag) {
        /* Type modifiers */
        PROCESS_TYPE(atomic)
                error("unexpected type: %x", tag);
        }
 
+       die_debug_r("parent %p cache %p die addr %p tag %x", parent, cache,
+                   die->addr, tag);
+
        /* Update cache state and append to the parent (if any) */
        cache->tag = tag;
        cache->state = want_state;
 
 int debug;
 /* Dump DIE contents */
 int dump_dies;
+/* Print debugging information about die_map changes */
+int dump_die_map;
 
 static void usage(void)
 {
              "Options:\n"
              "  -d, --debug          Print debugging information\n"
              "      --dump-dies      Dump DWARF DIE contents\n"
+             "      --dump-die-map   Print debugging information about die_map changes\n"
              "  -h, --help           Print this message\n"
              "\n",
              stderr);
        static const struct option opts[] = {
                { "debug", 0, NULL, 'd' },
                { "dump-dies", 0, &dump_dies, 1 },
+               { "dump-die-map", 0, &dump_die_map, 1 },
                { "help", 0, NULL, 'h' },
                { 0, 0, NULL, 0 }
        };
                }
        }
 
+       if (dump_die_map)
+               dump_dies = 1;
+
        if (optind >= argc) {
                usage();
                error("no input files?");
 
  */
 extern int debug;
 extern int dump_dies;
+extern int dump_die_map;
 
 /*
  * Output helpers
                exit(1);                                     \
        } while (0)
 
+#define __die_debug(color, format, ...)                                 \
+       do {                                                            \
+               if (dump_dies && dump_die_map)                          \
+                       fprintf(stderr,                                 \
+                               "\033[" #color "m<" format ">\033[39m", \
+                               __VA_ARGS__);                           \
+       } while (0)
+
+#define die_debug_r(format, ...) __die_debug(91, format, __VA_ARGS__)
+#define die_debug_g(format, ...) __die_debug(92, format, __VA_ARGS__)
+#define die_debug_b(format, ...) __die_debug(94, format, __VA_ARGS__)
+
 /*
  * Error handling helpers
  */