From: ceriel <none@none>
Date: Mon, 11 Apr 1988 10:55:07 +0000 (+0000)
Subject: Added some debug print statements
X-Git-Tag: release-5-5~3461
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=6eb15567ae307be1b6514bbf722c718915a41728;p=ack.git

Added some debug print statements
---

diff --git a/mach/proto/cg/codegen.c b/mach/proto/cg/codegen.c
index 34837fcb4..6ce9d164e 100644
--- a/mach/proto/cg/codegen.c
+++ b/mach/proto/cg/codegen.c
@@ -326,9 +326,22 @@ if (Debug)
 	tup = tuples(regls,nregneeded);
 	besttup=0;
 	for (; tup != 0; tup = ntup) {
+#ifndef NDEBUG
+if(Debug>1) { fprintf(stderr,"Next tuple %d,%d,%d,%d\n",
+                        tup->p_rar[0],
+                        tup->p_rar[1],
+                        tup->p_rar[2],
+                        tup->p_rar[3]);
+                fprintf(stderr, "totalcost = %u, costlimit = %u, mincost = %u\n",
+                        totalcost, costlimit, mincost);
+        }
+#endif
 		ntup = tup->p_next;
 		for (i=0,t=0;i<nregneeded && t<mincost; i++)
 			t += docoerc(regtp[i],regcp[i],ply,FALSE,tup->p_rar[i]);
+#ifndef NDEBUG   
+if (Debug > 1) fprintf(stderr, "cost after coercions: %u\n", t); 
+#endif
 		if (t<mincost)
 			t += codegen(codep,ply,FALSE,mincost-t,0);
 		if (t<mincost) {
diff --git a/mach/proto/cg/main.c b/mach/proto/cg/main.c
index 2dd6e67de..48bd57ccf 100644
--- a/mach/proto/cg/main.c
+++ b/mach/proto/cg/main.c
@@ -30,7 +30,7 @@ main(argc,argv) char **argv; {
 		switch(argv[0][1]) {
 #ifndef NDEBUG
 		case 'd':
-			Debug=1; break;
+			Debug++; break;
 #endif
 		case 'p':
 			maxply = atoi(argv[0]+2);