d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Now calling trace with the current line number as parameter.

Browse source
This commit is contained in:
keie 1985-02-08 13:18:26 +00:00
parent e9850f2691
commit 8a7ee2ea50
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/basic/src.old/gencode.c
View file

@ -52,7 +52,11 @@ int nr;
fprintf(tmpfile,"%d\n",currline->emlabel); fprintf(tmpfile,"%d\n",currline->emlabel);
fprintf(tmpfile," lin %d\n",nr); fprintf(tmpfile," lin %d\n",nr);
emlinecount += 2; 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) emcode(operation,params)