Let dfs() discover only memory nodes
[libfirm] / ir / debug / debugger.c
index a9e7ac4..a25565d 100644 (file)
@@ -19,7 +19,7 @@
 
 /**
  * @file
- * @brief     Helper function for integerated debug support
+ * @brief     Helper function for integrated debug support
  * @author    Michael Beck
  * @date      2005
  * @version   $Id$
@@ -28,6 +28,8 @@
 #include "config.h"
 #endif
 
+#include "firm_config.h"
+
 #ifdef DEBUG_libfirm
 
 #ifdef _WIN32
@@ -47,6 +49,9 @@
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif
+#ifdef HAVE_STRINGS_H
+#include <strings.h>
+#endif
 
 #include <ctype.h>
 
@@ -56,8 +61,8 @@
 #include "irgraph_t.h"
 #include "entity_t.h"
 #include "irprintf.h"
-#include "typewalk.h"
 #include "irdump.h"
+#include "iredges_t.h"
 #include "debug.h"
 
 #ifdef _WIN32
@@ -187,7 +192,7 @@ do {                                        \
 #define FIRM_DBG_MINOR  0
 
 /** for automatic detection of the debug extension */
-static const char *firm_debug_info_string =
+static const char firm_debug_info_string[] =
        API_VERSION(FIRM_DBG_MAJOR, FIRM_DBG_MINOR);
 
 /**
@@ -255,6 +260,8 @@ static void dbg_printf(const char *fmt, ...)
 static void dbg_new_node(void *ctx, ir_graph *irg, ir_node *node)
 {
        bp_nr_t key, *elem;
+       (void) ctx;
+       (void) irg;
 
        key.nr        = get_irn_node_nr(node);
        key.bp.reason = BP_ON_NEW_NODE;
@@ -276,6 +283,7 @@ static void dbg_new_node(void *ctx, ir_graph *irg, ir_node *node)
 static void dbg_replace(void *ctx, ir_node *old, ir_node *nw)
 {
        bp_nr_t key, *elem;
+       (void) ctx;
 
        key.nr        = get_irn_node_nr(old);
        key.bp.reason = BP_ON_REPLACE;
@@ -296,6 +304,7 @@ static void dbg_replace(void *ctx, ir_node *old, ir_node *nw)
 static void dbg_lower(void *ctx, ir_node *node)
 {
        bp_nr_t key, *elem;
+       (void) ctx;
 
        key.nr        = get_irn_node_nr(node);
        key.bp.reason = BP_ON_LOWER;
@@ -315,6 +324,7 @@ static void dbg_lower(void *ctx, ir_node *node)
  */
 static void dbg_free_graph(void *ctx, ir_graph *irg)
 {
+       (void) ctx;
        {
                bp_nr_t key, *elem;
                key.nr        = get_irg_graph_nr(irg);
@@ -352,6 +362,7 @@ static void dbg_free_graph(void *ctx, ir_graph *irg)
  */
 static void dbg_new_entity(void *ctx, ir_entity *ent)
 {
+       (void) ctx;
        {
                bp_ident_t key, *elem;
 
@@ -386,6 +397,7 @@ static void dbg_new_entity(void *ctx, ir_entity *ent)
  */
 static void dbg_new_type(void *ctx, ir_type *tp)
 {
+       (void) ctx;
        {
                bp_nr_t key, *elem;
 
@@ -436,6 +448,7 @@ static int cmp_nr_bp(const void *elt, const void *key, size_t size)
 {
        const bp_nr_t *e1 = elt;
        const bp_nr_t *e2 = key;
+       (void) size;
 
        return (e1->nr - e2->nr) | (e1->bp.reason - e2->bp.reason);
 }  /* cmp_nr_bp */
@@ -447,6 +460,7 @@ static int cmp_ident_bp(const void *elt, const void *key, size_t size)
 {
        const bp_ident_t *e1 = elt;
        const bp_ident_t *e2 = key;
+       (void) size;
 
        return (e1->id != e2->id) | (e1->bp.reason - e2->bp.reason);
 }  /* cmp_ident_bp */
@@ -1281,6 +1295,42 @@ void firm_init_debugger(void)
                firm_debug_break();
 }  /* firm_init_debugger */
 
+/**
+ * A gdb helper function to print firm objects.
+ */
+const char *gdb_node_helper(void *firm_object) {
+       static char buf[1024];
+       ir_snprintf(buf, sizeof(buf), "%+F", firm_object);
+       return buf;
+}
+
+/**
+ * A gdb helper function to print tarvals.
+ */
+const char *gdb_tarval_helper(void *tv_object) {
+       static char buf[1024];
+       ir_snprintf(buf, sizeof(buf), "%+T", tv_object);
+       return buf;
+}
+
+const char *gdb_out_edge_helper(const ir_node *node) {
+       static char buf[4*1024];
+       char *b = buf;
+       size_t l;
+       size_t len = sizeof(buf);
+       const ir_edge_t *edge;
+       foreach_out_edge(node, edge) {
+               ir_node *n = get_edge_src_irn(edge);
+
+               ir_snprintf(b, len, "%+F  ", n);
+               l = strlen(b);
+               len -= l;
+               b += l;
+       }
+
+       return buf;
+}
+
 #else
 
 /* some picky compiler do not allow empty files */