From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 11:07:42 +0000 (+0000)
Subject: Better monitoring.
X-Git-Tag: 1-2~47
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=3064a03a1653e878ec2234d804754936eaa3276c;p=cupl.git

Better monitoring.
---

diff --git a/execute.c b/execute.c
index 0ef6a52..9892947 100644
--- a/execute.c
+++ b/execute.c
@@ -636,8 +636,8 @@ void execute(node *tree)
 	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);
+		(void) printf("statement %2d: %x (%-10s of %9x, %9x)\n",
+		      pc->number, pc, tokdump(pc->type), pc->car, pc->cdr);
 
 	    next = pc->cdr;
 	    if (setjmp(nextbuf) == 0)