fcl-passrc: analyzer: use methods with message modifier

git-svn-id: trunk@41586 -

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

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',