From: Florian Krohm <florian@eich-krohm.de>
Date: Fri, 3 Aug 2012 18:41:58 +0000 (+0000)
Subject: Add IR debugging aid.
X-Git-Tag: svn/VALGRIND_3_8_1^2~21
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=593b9f4b92df820e41390f6d5d839cce134240cc;p=thirdparty%2Fvalgrind.git

Add IR debugging aid.


git-svn-id: svn://svn.valgrind.org/vex/trunk@2457
---

diff --git a/VEX/priv/guest_s390_toIR.c b/VEX/priv/guest_s390_toIR.c
index 143e1cb98e..10fe3b0b9c 100644
--- a/VEX/priv/guest_s390_toIR.c
+++ b/VEX/priv/guest_s390_toIR.c
@@ -465,6 +465,30 @@ put_fpr_pair(UInt archreg, IRExpr *expr)
 }
 
 
+/*------------------------------------------------------------*/
+/*--- 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.                               ---*/
 /*------------------------------------------------------------*/