[Qemu-devel] [4531] added debug_insn_start debug instruction

[Fabrice Bellard]

Revision: 4531
          http://svn.sv.gnu.org/viewvc/?view=rev&root=qemu&revision=4531
Author:   bellard
Date:     2008-05-22 16:56:05 +0000 (Thu, 22 May 2008)

Log Message:
-----------
added debug_insn_start debug instruction

Modified Paths:
--------------
    trunk/tcg/tcg-op.h
    trunk/tcg/tcg-opc.h
    trunk/tcg/tcg.c

Modified: trunk/tcg/tcg-op.h
===================================================================
--- trunk/tcg/tcg-op.h  2008-05-22 16:11:04 UTC (rev 4530)
+++ trunk/tcg/tcg-op.h  2008-05-22 16:56:05 UTC (rev 4531)
@@ -1291,6 +1291,18 @@
 #error must include QEMU headers
 #endif
 
+/* debug info: write the PC of the corresponding QEMU CPU instruction */
+static inline void tcg_gen_debug_insn_start(uint64_t pc)
+{
+    /* XXX: must really use a 32 bit size for TCGArg in all cases */
+#if TARGET_LONG_BITS > TCG_TARGET_REG_BITS
+    tcg_gen_op2i(INDEX_op_debug_insn_start, 
+                 (uint32_t)(pc), (uint32_t)(pc >> 32));
+#else
+    tcg_gen_op1i(INDEX_op_debug_insn_start, pc);
+#endif
+}
+
 static inline void tcg_gen_exit_tb(tcg_target_long val)
 {
     tcg_gen_op1i(INDEX_op_exit_tb, val);

Modified: trunk/tcg/tcg-opc.h
===================================================================
--- trunk/tcg/tcg-opc.h 2008-05-22 16:11:04 UTC (rev 4530)
+++ trunk/tcg/tcg-opc.h 2008-05-22 16:56:05 UTC (rev 4531)
@@ -156,6 +156,11 @@
 #endif
 
 /* QEMU specific */
+#if TARGET_LONG_BITS > TCG_TARGET_REG_BITS
+DEF2(debug_insn_start, 0, 0, 2, 0)
+#else
+DEF2(debug_insn_start, 0, 0, 1, 0)
+#endif
 DEF2(exit_tb, 0, 0, 1, TCG_OPF_BB_END | TCG_OPF_SIDE_EFFECTS)
 DEF2(goto_tb, 0, 0, 1, TCG_OPF_BB_END | TCG_OPF_SIDE_EFFECTS)
 /* Note: even if TARGET_LONG_BITS is not defined, the INDEX_op

Modified: trunk/tcg/tcg.c
===================================================================
--- trunk/tcg/tcg.c     2008-05-22 16:11:04 UTC (rev 4530)
+++ trunk/tcg/tcg.c     2008-05-22 16:56:05 UTC (rev 4531)
@@ -743,17 +743,31 @@
     const uint16_t *opc_ptr;
     const TCGArg *args;
     TCGArg arg;
-    int c, i, k, nb_oargs, nb_iargs, nb_cargs;
+    int c, i, k, nb_oargs, nb_iargs, nb_cargs, first_insn;
     const TCGOpDef *def;
     char buf[128];
 
+    first_insn = 1;
     opc_ptr = gen_opc_buf;
     args = gen_opparam_buf;
     while (opc_ptr < gen_opc_ptr) {
         c = *opc_ptr++;
         def = &tcg_op_defs[c];
-        fprintf(outfile, " %s ", def->name);
-        if (c == INDEX_op_call) {
+        if (c == INDEX_op_debug_insn_start) {
+            uint64_t pc;
+#if TARGET_LONG_BITS > TCG_TARGET_REG_BITS
+            pc = ((uint64_t)args[1] << 32) | args[0];
+#else
+            pc = args[0];
+#endif
+            if (!first_insn) 
+                fprintf(outfile, "\n");
+            fprintf(outfile, " ---- 0x%" PRIx64, pc);
+            first_insn = 0;
+            nb_oargs = def->nb_oargs;
+            nb_iargs = def->nb_iargs;
+            nb_cargs = def->nb_cargs;
+        } else if (c == INDEX_op_call) {
             TCGArg arg;
 
             /* variable number of arguments */
@@ -762,6 +776,8 @@
             nb_iargs = arg & 0xffff;
             nb_cargs = def->nb_cargs;
 
+            fprintf(outfile, " %s ", def->name);
+
             /* function name */
             fprintf(outfile, "%s",
                     tcg_get_helper_str_idx(s, buf, sizeof(buf), args[nb_oargs 
+ nb_iargs - 1]));
@@ -785,6 +801,7 @@
                 }
             }
         } else {
+            fprintf(outfile, " %s ", def->name);
             if (c == INDEX_op_nopn) {
                 /* variable number of arguments */
                 nb_cargs = *args;
@@ -1037,6 +1054,9 @@
             /* mark end of basic block */
             tcg_la_bb_end(s, dead_temps);
             break;
+        case INDEX_op_debug_insn_start:
+            args -= def->nb_args;
+            break;
         case INDEX_op_nopn:
             nb_args = args[-1];
             args -= nb_args;
@@ -1840,6 +1860,9 @@
             dead_iargs = s->op_dead_iargs[op_index];
             tcg_reg_alloc_mov(s, def, args, dead_iargs);
             break;
+        case INDEX_op_debug_insn_start:
+            /* debug instruction */
+            break;
         case INDEX_op_nop:
         case INDEX_op_nop1:
         case INDEX_op_nop2: