Added Firm object pset dumper for debugging

[r8152]

diff --git a/ir/common/irtools.c b/ir/common/irtools.c
index d307b25..37eae69 100644 (file)
--- a/ir/common/irtools.c
+++ b/ir/common/irtools.c
@@ -13,10 +13,13 @@
 # include "config.h"
 #endif
 
+#include "pset.h"
+
 #include <stdlib.h>
 #include "irnode_t.h"
 #include "irbackedge_t.h"
 #include "irtools.h"
+#include "irprintf.h"
 
 /* the famous clear_link implementation. */
 void firm_clear_link(ir_node *n, void *env) {
@@ -121,3 +124,12 @@ ir_node *exact_copy(const ir_node *n) {
   new_backedge_info(res);
   return res;
 }
+
+void firm_pset_dump(pset *set)
+{
+       void *obj;
+
+       foreach_pset(set, obj) {
+               ir_fprintf(stderr, "%+F\n", obj);
+       }
+}

diff --git a/ir/common/irtools.h b/ir/common/irtools.h
index 764c06b..2d94611 100644 (file)
--- a/ir/common/irtools.h
+++ b/ir/common/irtools.h
@@ -20,6 +20,8 @@
 lc_opt_entry_t *firm_opt_get_root(void);
 #endif
 
+#include "pset.h"
+
 #undef MIN
 #undef MAX
 #define MAX(x, y) ((x) > (y) ? (x) : (y))
@@ -44,6 +46,11 @@ lc_opt_entry_t *firm_opt_get_root(void);
  */
 #define PTR_TO_INT(v)   ((int)((char *)(v) - (char *)0))
 
+/**
+ * Dump a pset containing Firm objects.
+ */
+void firm_pset_dump(pset *set);
+
 /**
  * The famous clear_link() walker-function.
  * Do not implement it by yourself, use this one