From: keie <none@none>
Date: Fri, 8 Feb 1985 13:18:26 +0000 (+0000)
Subject: Now calling trace with the current line number as parameter.
X-Git-Tag: release-5-5~5650
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8a7ee2ea50173e9eb1fed76abb731f5692b9ae55;p=ack.git

Now calling trace with the current line number as parameter.
---

diff --git a/lang/basic/src.old/gencode.c b/lang/basic/src.old/gencode.c
index 03bcd1784..e36aa7b7f 100644
--- a/lang/basic/src.old/gencode.c
+++ b/lang/basic/src.old/gencode.c
@@ -52,7 +52,11 @@ int nr;
 	fprintf(tmpfile,"%d\n",currline->emlabel);
 	fprintf(tmpfile," lin %d\n",nr);
 	emlinecount += 2;
-	if( tronoff || traceflag) emcode("cal","$_trace");
+	if( tronoff || traceflag) {
+		emcode("loc",itoa(nr));
+		emcode("cal","$_trace");
+		emcode("asp","EM_WSIZE");
+	}
 }
 
 emcode(operation,params)