From: ceriel <none@none>
Date: Wed, 31 Aug 1988 09:24:28 +0000 (+0000)
Subject: improve line number administration
X-Git-Tag: release-5-5~2879
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=a40768b6f9248c68e4c24e3b8a85dfd36c8fc5d0;p=ack.git

improve line number administration
---

diff --git a/lang/pc/pem/pem.p b/lang/pc/pem/pem.p
index 77faff767..7cd44ffc9 100644
--- a/lang/pc/pem/pem.p
+++ b/lang/pc/pem/pem.p
@@ -2158,7 +2158,10 @@ begin with a do begin
     end;
   if sz<>0 then gencst(op_asp,sz);
   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;
 
 procedure fileaddr;