|
From: <sv...@va...> - 2012-08-03 18:42:05
|
florian 2012-08-03 19:41:58 +0100 (Fri, 03 Aug 2012)
New Revision: 2457
Log:
Add IR debugging aid.
Modified files:
trunk/priv/guest_s390_toIR.c
Modified: trunk/priv/guest_s390_toIR.c (+24 -0)
===================================================================
--- trunk/priv/guest_s390_toIR.c 2012-08-03 19:35:39 +01:00 (rev 2456)
+++ trunk/priv/guest_s390_toIR.c 2012-08-03 19:41:58 +01:00 (rev 2457)
@@ -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. ---*/
/*------------------------------------------------------------*/
|