d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Due to an 8 character identifiers limitation on EM calls to

Browse source 
"setchannel" were changed into "setchan" and the identifier
"seektable" is replaced by "seektab".
This commit is contained in:
keie 1985-01-21 14:50:12 +00:00
parent 770f321ea8
commit 374ac8b21c
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/basic/src.old/gencode.c
View file

@ -89,8 +89,8 @@ datatable()
int line=0; int line=0;
/* called at end to generate the data seek table */ /* called at end to generate the data seek table */
fprintf(emfile," exa _seektable\n"); fprintf(emfile," exa _seektab\n");
fprintf(emfile,"_seektable\n"); fprintf(emfile,"_seektab\n");
l= datalist; l= datalist;
while(l) while(l)
{ {
@ -192,7 +192,7 @@ int lab;
/* save this information too */ /* save this information too */
emcode("loc",itoa(0)); emcode("loc",itoa(0));
emcode("cal","$_setchannel"); emcode("cal","$_setchan");
emcode("asp",EMINTSIZE); emcode("asp",EMINTSIZE);
emcode("loc",itoa(lab)); emcode("loc",itoa(lab));
emcode("cal","$_restore"); emcode("cal","$_restore");
@ -266,7 +266,7 @@ setchannel(val)
int val; int val;
{ /* obtain file descroption */ { /* obtain file descroption */
emcode("loc",itoa(val)); emcode("loc",itoa(val));
emcode("cal","$_setchannel"); emcode("cal","$_setchan");
emcode("asp",EMINTSIZE); emcode("asp",EMINTSIZE);
} }
/* The if-then-else statements */ /* The if-then-else statements */
@ -541,7 +541,7 @@ prolog2()
if( dataused) if( dataused)
{ {
fprintf(emfile," loc 0\n"); fprintf(emfile," loc 0\n");
fprintf(emfile," cal $_setchannel\n"); fprintf(emfile," cal $_setchan\n");
fprintf(emfile," asp EM_WSIZE\n"); fprintf(emfile," asp EM_WSIZE\n");
fprintf(emfile,"datfname\n rom \"%s\"\n", datfname); fprintf(emfile,"datfname\n rom \"%s\"\n", datfname);
fprintf(emfile," lae datfname\n"); fprintf(emfile," lae datfname\n");