godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix: csa descriptors contained upb instead of upb - lwb.

Browse Source
This commit is contained in:
ceriel 1987-02-11 16:05:25 +00:00
parent 711710211c
commit 3ef739b3e6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/basic/src.old/graph.c
View File

@ -220,7 +220,7 @@ int type;
descr= genlabel(); descr= genlabel();
firstlabel=genlabel(); firstlabel=genlabel();
fprintf(tmpfile,"l%d\n",descr); emlinecount++; fprintf(tmpfile,"l%d\n",descr); emlinecount++;
fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt); emlinecount++; fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
l= jumphead; l= jumphead;
while( l) while( l)
{ {
@ -244,7 +244,7 @@ int type;
descr= genlabel(); descr= genlabel();
firstlabel=genlabel(); firstlabel=genlabel();
fprintf(tmpfile,"l%d\n",descr); emlinecount++; fprintf(tmpfile,"l%d\n",descr); emlinecount++;
fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt); emlinecount++; fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
l= jumphead; l= jumphead;
while( l) while( l)
{ {