From 91c6b86a82686b8821340cdaea4eb40d9fa44a22 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Mon, 4 Mar 2019 11:44:00 +0000 Subject: [PATCH] fcl-passrc: analyzer: use methods with message modifier git-svn-id: trunk@41586 - --- packages/fcl-passrc/src/pasuseanalyzer.pas | 5 +++++ packages/pastojs/tests/tcmodules.pas | 1 + 2 files changed, 6 insertions(+) diff --git a/packages/fcl-passrc/src/pasuseanalyzer.pas b/packages/fcl-passrc/src/pasuseanalyzer.pas index 7bd969cdcd..e7406f2faf 100644 --- a/packages/fcl-passrc/src/pasuseanalyzer.pas +++ b/packages/fcl-passrc/src/pasuseanalyzer.pas @@ -2115,6 +2115,11 @@ begin end; //writeln('TPasAnalyzer.UseClassType ',El.FullName,' ',Mode,' ',Member.Name); end; + if Proc.MessageExpr<>nil then + begin + UseProcedure(Proc); + continue; + end; end else if Member.ClassType=TPasAttributes then continue; // attributes are never used directly diff --git a/packages/pastojs/tests/tcmodules.pas b/packages/pastojs/tests/tcmodules.pas index fa2a68b2a1..20676529ab 100644 --- a/packages/pastojs/tests/tcmodules.pas +++ b/packages/pastojs/tests/tcmodules.pas @@ -9995,6 +9995,7 @@ begin ' doit(vc,vc,vl,vl);', ' doit(vv,vv,vv,vv);', ' doit(vl,vl,vl,vl);', + //' TRecord(U).i:=3;', 'end;', 'var i: TRecord;', 'begin',