From 8a7ee2ea50173e9eb1fed76abb731f5692b9ae55 Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Fri, 8 Feb 1985 13:18:26 +0000
Subject: [PATCH] Now calling trace with the current line number as parameter.

---
 lang/basic/src.old/gencode.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)