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

Removed the "wordsize" variable. it was'nt needed, as we also have

Browse source 
EM_WSIZE.
This commit is contained in:
ceriel 1986-10-09 11:44:28 +00:00
parent ec2b3e61c6
commit 591a0db767
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/pc/pem/pem.p
View file

@ -89,7 +89,6 @@ const
imax = 10; imax = 10;
max2bytes = '0000032767'; max2bytes = '0000032767';
max4bytes = '2147483647'; max4bytes = '2147483647';
wordsize = EM_WSIZE;
#if EM_WSIZE == 4 #if EM_WSIZE == 4
{this can only be compiled with a compiler that has integer size 4} {this can only be compiled with a compiler that has integer size 4}
@ -1516,7 +1515,7 @@ begin lsp:=nil;
until endofloop(fsys+[rparent],[ident],comma,+027); {+028} until endofloop(fsys+[rparent],[ident],comma,+027); {+028}
if max<=MU1 then lsp^.size:=sz_byte if max<=MU1 then lsp^.size:=sz_byte
#if EM_WSIZE == 4 #if EM_WSIZE == 4
else if max <= MU2 then lsp^.size = 2*sz_byte else if max <= MU2 then lsp^.size := 2*sz_byte
#endif #endif
; ;
lsp^.fconst:=hip; top:=lnp; nextif(rparent,+029); lsp^.fconst:=hip; top:=lnp; nextif(rparent,+029);
@ -3295,7 +3294,9 @@ end;
procedure init3; procedure init3;
var n:np; p,q:ip; i:integer; c:char; var n:np; p,q:ip; i:integer; c:char;
#if EM_WSIZE == 2
is:packed array[1..imax] of char; is:packed array[1..imax] of char;
#endif
begin begin
for i:=0 to sz_last do readln(errors,sizes[i]); for i:=0 to sz_last do readln(errors,sizes[i]);
if sz_int = 2 then maxintstring := max2bytes if sz_int = 2 then maxintstring := max2bytes
@ -3336,12 +3337,16 @@ begin
{maxint of the target machine} {maxint of the target machine}
p:=newip(konst,'maxint ',intptr,nil); p:=newip(konst,'maxint ',intptr,nil);
if sz_int = 2 then p^.value:=MI2 if sz_int = 2 then p^.value:=MI2
else if wordsize = 4 then p^.value := MI else
else {wordsize = 2, sz_int = 4} #if EM_WSIZE == 4
p^.value := MI;
#else
{EM_WSIZE = 2, sz_int = 4}
begin p^.idtype:=longptr; ix:=imax; is:=max4bytes; begin p^.idtype:=longptr; ix:=imax; is:=max4bytes;
for i:=1 to ix do strbuf[i]:=is[i]; for i:=1 to ix do strbuf[i]:=is[i];
p^.value:=romstr(sp_icon,sz_int); p^.value:=romstr(sp_icon,sz_int);
end; end;
#endif
enterid(p); enterid(p);
p:=newip(konst,spaces,charptr,nil); p^.value:=maxcharord; p:=newip(konst,spaces,charptr,nil); p^.value:=maxcharord;
charptr^.fconst:=p; charptr^.fconst:=p;
@ -3360,7 +3365,7 @@ end;
procedure init4; procedure init4;
begin begin
copt:=opt['c']; copt:=opt['c'];
dopt:=opt['d']; if wordsize < sz_int then dopt:=on; dopt:=opt['d']; if EM_WSIZE < sz_int then dopt:=on;
iopt:=opt['i']; iopt:=opt['i'];
sopt:=opt['s']; sopt:=opt['s'];
if sopt<>off then begin copt:=off; dopt:=off end if sopt<>off then begin copt:=off; dopt:=off end