From: Christian Würdig <chriswue@ipd.info.uni-karlsruhe.de>
Date: Thu, 27 Oct 2005 15:26:59 +0000 (+0000)
Subject: support for node dumper
X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=2ba886c5de15efaf06f2b3db42e2eb481602f9cf;p=libfirm

support for node dumper
---

diff --git a/ir/be/ia32/dump_support.inl b/ir/be/ia32/dump_support.inl
new file mode 100644
index 000000000..4d83aabf2
--- /dev/null
+++ b/ir/be/ia32/dump_support.inl
@@ -0,0 +1,32 @@
+static int dump_node_ia32(ir_node *n, FILE *F, dump_reason_t reason)
+{
+  const char *name, *p;
+  ir_mode *mode;
+  int bad = 0;
+  char buf[1024];
+
+  switch (reason) {
+  case dump_node_opcode_txt:
+    name = get_irn_opname(n);
+    fprintf(F, "%s", name);
+    break;
+  case dump_node_mode_txt:
+    mode = get_irn_mode(n);
+    name = get_irn_opname(n);
+
+    if (mode && mode != mode_BB && mode != mode_ANY && mode != mode_BAD && mode != mode_T) {
+      p = name + strlen(name) - 2;
+      if (p[0] == '_' && p[1] == 'i') {
+        tarval_snprintf(buf, sizeof(buf), get_Immop_tarval(n));
+        fprintf(F, "[%s]", buf);
+      }
+
+      fprintf(F, "%s", get_mode_name(mode));
+    }
+    break;
+
+  case dump_node_nodeattr_txt:
+    break;
+  }
+  return bad;
+}