From: keie <none@none>
Date: Fri, 25 Jan 1985 09:57:04 +0000 (+0000)
Subject: The parametrs passed to the call to opnchn when initializing are now
X-Git-Tag: release-5-5~5704
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8fa5a7b6682796c130971666008436279bdc49ae;p=ack.git

The parametrs passed to the call to opnchn when initializing are now
correct string descriptors.
Programs with data statements used to crash with TRAP TYPE 11.
---

diff --git a/lang/basic/src.old/gencode.c b/lang/basic/src.old/gencode.c
index d5cdbac2a..03bcd1784 100644
--- a/lang/basic/src.old/gencode.c
+++ b/lang/basic/src.old/gencode.c
@@ -543,10 +543,18 @@ prolog2()
 		fprintf(emfile," loc 0\n");
 		fprintf(emfile," cal $_setchan\n");
 		fprintf(emfile," asp EM_WSIZE\n");
-		fprintf(emfile,"datfname\n rom \"%s\"\n", datfname);
-		fprintf(emfile," lae datfname\n");
+		fprintf(emfile,"datfname\n rom \"%s\\0\"\n", datfname);
+		fprintf(emfile,"dattyp\n rom \"i\\0\"\n");
+		fprintf(emfile,"datfdes\n rom datfname,1,%d\n",
+			strlen(datfname));
+		fprintf(emfile,"dattdes\n rom dattyp,1,1\n");
+		fprintf(emfile," lae dattdes\n");
+		fprintf(emfile," lae datfdes\n");
+		fprintf(emfile," loc 0\n");
 		fprintf(emfile," cal $_opnchn\n");
 		fprintf(emfile," asp EM_PSIZE\n");
+		fprintf(emfile," asp EM_PSIZE\n");
+		fprintf(emfile," asp EM_WSIZE\n");
 	}
 	datatable();
 }