used new new_type_frame() to generate frame types

[libfirm] / ir / ana2 / pto_debug.c

diff --git a/ir/ana2/pto_debug.c b/ir/ana2/pto_debug.c
index 60f0a46..301a443 100644 (file)
--- a/ir/ana2/pto_debug.c
+++ b/ir/ana2/pto_debug.c
@@ -13,7 +13,7 @@
 */
 
 # ifdef HAVE_CONFIG_H
-#  include <config.h>
+#  include "config.h"
 # endif
 
 /*
@@ -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,36 @@ 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
+
   Revision 1.2  2004/11/24 14:53:56  liekweg
   Bugfixes