many bug fixes

1987-02-11 14:29:27 +00:00
parent f18da9078c
commit a6d90aaeec
6 changed files with 64 additions and 44 deletions
--- a/lang/basic/src.old/gencode.c
+++ b/lang/basic/src.old/gencode.c
@@ -50,8 +50,11 @@ int nr;
 	/* save location on tmpfile */
 	currline->offset= ftell(tmpfile);
 	fprintf(tmpfile,"%d\n",currline->emlabel);
-	fprintf(tmpfile," lin %d\n",nr);
-	emlinecount += 2;
+	emlinecount++;
+	if (! nolins) {
+		fprintf(tmpfile," lin %d\n",nr);
+		emlinecount++;
+	}
 	if( tronoff || traceflag) {
 		emcode("loc",itoa(nr));
 		emcode("cal","$_trace");