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

improve line number administration

Browse source
This commit is contained in:
ceriel 1988-08-31 09:24:28 +00:00
parent ac92c0b9c3
commit a40768b6f9
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2158,7 +2158,10 @@ begin with a do begin
end; end;
if sz<>0 then gencst(op_asp,sz); if sz<>0 then gencst(op_asp,sz);
asp:=fip^.idtype; asp:=fip^.idtype;
if asp<>nil then genasp(op_lfr) if asp<>nil then genasp(op_lfr);
if (fip^.pfkind = extern) and (opt['l'] <> off) then
begin genop(op_fil); argdlb(fildlb) end;
genlin
end end; end end;
procedure fileaddr; procedure fileaddr;