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

don't generate HOL's of zero size

Browse source
This commit is contained in:
ceriel 1988-04-08 09:46:04 +00:00
parent ec612942a1
commit b671136060
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1392,7 +1392,9 @@ begin inita(fsp,negaddr(fsp));
end; end;
procedure genhol; procedure genhol;
begin gencst(ps_hol,posaddr(holeb,nil,false)); var sz: integer;
begin sz := posaddr(holeb,nil,false); if sz = 0 then sz := sz_word;
gencst(ps_hol,sz);
if sz_word = 4 then begin put1(sp_cst4); put1(0); put1(0); end if sz_word = 4 then begin put1(sp_cst4); put1(0); put1(0); end
else put1(sp_cst2); else put1(sp_cst2);
put1(0); put1(128); { 1000000000000000 pattern} put1(0); put1(128); { 1000000000000000 pattern}