From a40768b6f9248c68e4c24e3b8a85dfd36c8fc5d0 Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 31 Aug 1988 09:24:28 +0000 Subject: [PATCH] improve line number administration --- lang/pc/pem/pem.p | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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; -- 2.34.1