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

fixed a bug: constant sets were not handled right on 4-byte machines

Browse source
This commit is contained in:
ceriel 1987-07-22 09:21:00 +00:00
parent 19e580bdc9
commit 03c5092815
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/pc/pem/Makefile
View file

@ -21,7 +21,7 @@ pem.out: pem.m
apc -mint --t -o pem.out pem.m apc -mint --t -o pem.out pem.m
pem: pem.m pem: pem.m
$(APC) $(LDFLAG) -o pem pem.m $(APC) $(LDFLAG) -O -o pem pem.m
# pem.m is system dependent and may NOT be distributed # pem.m is system dependent and may NOT be distributed
pem.m: pem.p $(HEAD) pem.m: pem.p $(HEAD)

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

@ -2466,7 +2466,7 @@ begin
if j = i+1 then argcst(setcode(cstpart[j])) if j = i+1 then argcst(setcode(cstpart[j]))
else else
begin begin
if j = i+2 then put1(sp_cst2) if (j = i+2) and ((sz_word <= 2) or not (MB1 in cstpart[j])) then put1(sp_cst2)
else begin j:=i+4; put1(sp_cst4) end; else begin j:=i+4; put1(sp_cst4) end;
for j:=i+1 to j do put1(setcode(cstpart[j])) for j:=i+1 to j do put1(setcode(cstpart[j]))
end; end;