X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fana2%2Fpto_debug.c;h=301a443de4260b73332c1a4bcc14e3c8a13d4856;hb=61adb50426dee69f0a5cfef689513a2aa41caaa5;hp=2dd2e4a7fc76dc164c2a18342779dd4fcb4e5f97;hpb=f001e5b3cb89f984c977a9f7d4aef02cc3cc56eb;p=libfirm

diff --git a/ir/ana2/pto_debug.c b/ir/ana2/pto_debug.c
index 2dd2e4a7f..301a443de 100644
--- 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");
+  }
+}
+
 
 
 /*
   $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