Add IR debugging aid.
git-svn-id: svn://svn.valgrind.org/vex/trunk@2457 8f6e269a-dfd6-0310-a8e1-e2731360e62c
diff --git a/priv/guest_s390_toIR.c b/priv/guest_s390_toIR.c
index 143e1cb..10fe3b0 100644
--- a/priv/guest_s390_toIR.c
+++ b/priv/guest_s390_toIR.c
@@ -466,6 +466,30 @@
/*------------------------------------------------------------*/
+/*--- IR Debugging aids. ---*/
+/*------------------------------------------------------------*/
+#if 0
+
+static ULong
+s390_do_print(HChar *text, ULong value)
+{
+ vex_printf("%s %llu\n", text, value);
+ return 0;
+}
+
+static void
+s390_print(HChar *text, IRExpr *value)
+{
+ IRDirty *d;
+
+ d = unsafeIRDirty_0_N(0 /* regparms */, "s390_do_print", &s390_do_print,
+ mkIRExprVec_2(mkU64((ULong)text), value));
+ stmt(IRStmt_Dirty(d));
+}
+#endif
+
+
+/*------------------------------------------------------------*/
/*--- Build the flags thunk. ---*/
/*------------------------------------------------------------*/