paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 05:58:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

For "inherited" the use of helpers must be allowed as well, as those might use a ttypenode of a helper as well.

Browse Source 
git-svn-id: branches/svenbarth/classhelpers@17313 -
This commit is contained in:
svenbarth 2011-04-13 09:46:33 +00:00
parent 3c477c67ec
commit 9eafb5e7cd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pexpr.pas
View File

@ -2441,6 +2441,8 @@ implementation
(po_staticmethod in current_procinfo.procdef.procoptions) then
hdef:=tclassrefdef.create(hdef);
p1:=ctypenode.create(hdef);
{ we need to allow helpers here }
ttypenode(p1).helperallowed:=true;
end;
propertysym:
;