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

compiler: don't remove 'self' if the method is static but not a class method

Browse Source 
git-svn-id: trunk@14579 -
This commit is contained in:
paul 2010-01-08 17:28:43 +00:00
parent 58c71c3c59
commit 2fdf045e74
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pdecsub.pas
View File

@ -2774,12 +2774,15 @@ const
if not (po_staticmethod in currpd.procoptions) then if not (po_staticmethod in currpd.procoptions) then
begin begin
include(currpd.procoptions, po_staticmethod); include(currpd.procoptions, po_staticmethod);
{ remove self from the hidden paras } if (po_classmethod in currpd.procoptions) then
symentry:=currpd.parast.Find('self');
if symentry<>nil then
begin begin
currpd.parast.Delete(symentry); { remove self from the hidden paras }
currpd.calcparas; symentry:=currpd.parast.Find('self');
if symentry<>nil then
begin
currpd.parast.Delete(symentry);
currpd.calcparas;
end;
end; end;
end; end;
end; end;