used new set_irg_doms_inconsistent() to invalidate dom and postdom

[libfirm] / ir / ana2 / pto_debug.c

diff --git a/ir/ana2/pto_debug.c b/ir/ana2/pto_debug.c
index 2dd2e4a..301a443 100644 (file)
--- a/ir/ana2/pto_debug.c
+++ b/ir/ana2/pto_debug.c
@@ -21,8 +21,10 @@
 */
 
 # include "pto_debug.h"
+# include "pto_comp.h"
+# include "gnu_ext.h"
+# include "qset.h"
 
-# include "irnode.h"
 /* # include "xmalloc.h" */
 
 /* Local Defines: */
@@ -49,13 +51,33 @@ int get_dbg_lvl ()
 
 void set_dbg_lvl (int lvl)
 {
+  /* fprintf (stdout, "%s:%s (): dbg_lvl: %i -> %i\n", */
+/*            __FILE__, __FUNCTION__, dbg_lvl, lvl); */
   dbg_lvl = lvl;
 }
 
+void pto_print_pto (ir_node *node)
+{
+  pto_t *pto = get_node_pto (node);
+
+  fprintf (stdout, "pto (%s[%li]) = ", OPNAME (node), OPNUM (node));
+  if (NULL != pto) {
+    qset_print (pto->values, stdout);
+  } else {
+    fprintf (stdout, "NULL");
+  }
+}
+
 
 \f
 /*
   $Log$
+  Revision 1.5  2005/02/25 16:47:51  liekweg
+  fix GNU stuff
+
+  Revision 1.4  2004/12/20 17:34:35  liekweg
+  fix recursion handling
+
   Revision 1.3  2004/12/02 16:17:51  beck
   fixed config.h include