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

* ignore unused parameters when inlining

Browse Source 
git-svn-id: trunk@21445 -
This commit is contained in:
florian 2012-05-31 18:48:38 +00:00
parent 4f273aa08d
commit af7bb6faab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -3703,7 +3703,7 @@ implementation
para := tcallparanode(left);
while assigned(para) do
begin
if (para.parasym.typ = paravarsym) then
if (para.parasym.typ = paravarsym) and (para.parasym.refs>0) then
begin
{ must take copy of para.left, because if it contains a }
{ temprefn pointing to a copied temp (e.g. methodpointer), }