From 8fa5a7b6682796c130971666008436279bdc49ae Mon Sep 17 00:00:00 2001 From: keie Date: Fri, 25 Jan 1985 09:57:04 +0000 Subject: [PATCH] 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. --- lang/basic/src.old/gencode.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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(); } -- 2.34.1