Better monitoring.

diff --git a/execute.c b/execute.c
index 71b0238c936be72a4bcd07563462852e44b96353..0ef6a521c040a7b81b00630ba94616dc3d0b2e8e 100644 (file)
--- a/execute.c
+++ b/execute.c
@@ -635,6 +635,10 @@ void execute(node *tree)
        /* now execute the program */
        for (pc = tree; pc; pc = next)
        {
+           if (verbose >= DEBUG_EXECUTE)
+               (void) printf("statement:    %x (%-10s of %9x, %9x) %d\n",
+                     pc, tokdump(pc->type), pc->car, pc->cdr, pc->number);
+
            next = pc->cdr;
            if (setjmp(nextbuf) == 0)
                (void) cupl_eval(pc->car);