fcl-passrc: useanalyzer: no hint for assembler result

git-svn-id: trunk@38081 -

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -1814,7 +1814,7 @@ var
   Usage: TPAElement;
   ProcScope: TPasProcedureScope;
   PosEl: TPasElement;
-  DeclProc: TPasProcedure;
+  DeclProc, ImplProc: TPasProcedure;
 begin
   {$IFDEF VerbosePasAnalyzer}
   writeln('TPasAnalyzer.EmitProcedureHints ',GetElModName(El));
@@ -1824,6 +1824,10 @@ begin
     DeclProc:=El
   else
     DeclProc:=ProcScope.DeclarationProc;
+  if ProcScope.ImplProc=nil then
+    ImplProc:=El
+  else
+    ImplProc:=ProcScope.ImplProc;
   if FindNode(DeclProc)=nil then
     begin
     // procedure never used
@@ -1841,7 +1845,8 @@ begin
 
   // procedure was used
 
-  if [pmAbstract,pmAssembler,pmExternal]*El.Modifiers<>[] then exit;
+  if [pmAbstract,pmAssembler,pmExternal]*DeclProc.Modifiers<>[] then exit;
+  if [pmAssembler]*ImplProc.Modifiers<>[] then exit;
 
   if ProcScope.DeclarationProc=nil then
     begin