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

Some changes needed for the new 4-4 Pascal compiler.

Browse source
This commit is contained in:
ceriel 1986-07-21 09:53:44 +00:00
parent 83d21d8076
commit 3c76cbaa1e
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
util/ack/pc/em_pc.c
View file

@ -49,12 +49,15 @@ char *eflag;
char *wflag; char *wflag;
int sizes[sz_last+1] = { int sizes[sz_last+1] = {
2, /* sz_addr */ 4, /* sz_addr */
8, /* sz_real */ 8, /* sz_real */
0, /* sz_head */ 0, /* sz_head */
512, /* sz_buff */ 512, /* sz_buff */
4096, /* sz_mset */ 4096, /* sz_mset */
2, /* sz_iset */ 4, /* sz_iset */
4, /* sz_word */
4, /* sz_int */
4, /* sz_long */
}; };
#define CALLSIZE 60 #define CALLSIZE 60
@ -193,12 +196,17 @@ initsizes(f) FILE *f; {
case 'b': sz_buff = i; continue; case 'b': sz_buff = i; continue;
case 'm': sz_mset = i; continue; case 'm': sz_mset = i; continue;
case 'j': sz_iset = i; continue; case 'j': sz_iset = i; continue;
case 'w': case 'w': sz_word = i; continue;
case 'i': if (i == 2) continue; break; case 'i': sz_int = i; continue;
case 'l': if (i == 4) continue; break; case 'l': sz_long = i; continue;
} }
fatal("bad V-flag %s",vvflag); fatal("bad V-flag %s",vvflag);
} }
if (sz_word != sz_int ||
(sz_int != 2 && sz_int != 4) ||
(sz_long != 4)) {
fatal("bad V-flag %s",vvflag);
}
if (sz_head == 0) if (sz_head == 0)
sz_head = 6*sz_word + 2*sz_addr; sz_head = 6*sz_word + 2*sz_addr;
for (i = 0; i <= sz_last; i++) for (i = 0; i <= sz_last; i++)