From 1706552f25334eb46b4b02275469bbf2061a33fc Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 11 Feb 1987 16:05:25 +0000 Subject: [PATCH] bug fix: csa descriptors contained upb instead of upb - lwb. --- lang/basic/src.old/graph.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lang/basic/src.old/graph.c b/lang/basic/src.old/graph.c index 545d499db..ee0c86c0d 100644 --- a/lang/basic/src.old/graph.c +++ b/lang/basic/src.old/graph.c @@ -220,7 +220,7 @@ int type; descr= genlabel(); firstlabel=genlabel(); 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; while( l) { @@ -244,7 +244,7 @@ int type; descr= genlabel(); firstlabel=genlabel(); 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; while( l) { -- 2.34.1