From: ceriel <none@none>
Date: Wed, 11 Feb 1987 16:05:25 +0000 (+0000)
Subject: bug fix: csa descriptors contained upb instead of upb - lwb.
X-Git-Tag: release-5-5~4679
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=1706552f25334eb46b4b02275469bbf2061a33fc;p=ack.git

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

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