d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 55abae9d4f
commit 1706552f25
1 changed files with 2 additions and 2 deletions

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)
{ {