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 03bcd17..e36aa7b 100644 (file)
--- 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)