From: Eric S. Raymond <esr@thyrsus.com>
Date: Thu, 10 Nov 1994 19:53:52 +0000 (+0000)
Subject: Better monitoring.
X-Git-Tag: 1-2~49
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=4f0e3867fe2512b47896ee44231f2189fbb0f0b0;p=cupl.git

Better monitoring.
---

diff --git a/execute.c b/execute.c
index 71b0238..0ef6a52 100644
--- 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);