From 593b9f4b92df820e41390f6d5d839cce134240cc Mon Sep 17 00:00:00 2001 From: Florian Krohm Date: Fri, 3 Aug 2012 18:41:58 +0000 Subject: [PATCH] Add IR debugging aid. git-svn-id: svn://svn.valgrind.org/vex/trunk@2457 --- VEX/priv/guest_s390_toIR.c | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) 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. ---*/ /*------------------------------------------------------------*/ -- 2.47.2