godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The parametrs passed to the call to opnchn when initializing are now

Browse Source 
correct string descriptors.
Programs with data statements used to crash with TRAP TYPE 11.
This commit is contained in:
keie 1985-01-25 09:57:04 +00:00
parent a1c05ca061
commit 0aa95f6015
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lang/basic/src.old/gencode.c
View File

@ -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();
}