[Valgrind-developers] vex: r2457: Add IR debugging aid.

[<sv...@va...>]

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.                               ---*/
 /*------------------------------------------------------------*/