paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: useanalyzer: no hint for assembler result

Browse Source 
git-svn-id: trunk@38081 -
This commit is contained in:
Mattias Gaertner 2018-01-29 21:01:22 +00:00
parent 1267814275
commit 064e7f391e
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -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