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

fcl-passrc: resolver: fixed name[][] for default property and adv record class var

Browse Source 
git-svn-id: trunk@41123 -
This commit is contained in:
Mattias Gaertner 2019-01-29 18:13:43 +00:00
parent 94d71c0d35
commit d5632392d0
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-passrc/src/pasresolver.pp
View File

@ -9285,6 +9285,7 @@ begin
ComputeElement(SubParams,ResolvedEl,[rcNoImplicitProc,rcSetReferenceFlags]); ComputeElement(SubParams,ResolvedEl,[rcNoImplicitProc,rcSetReferenceFlags]);
if Value.CustomData=nil then if Value.CustomData=nil then
CreateReference(ResolvedEl.LoTypeEl,Value,Access); CreateReference(ResolvedEl.LoTypeEl,Value,Access);
ResolvedEl.IdentEl:=nil;
end end
else if Value.InheritsFrom(TUnaryExpr) then else if Value.InheritsFrom(TUnaryExpr) then
begin begin
@ -21857,10 +21858,17 @@ begin
end; end;
function TPasResolver.IsClassField(El: TPasElement): boolean; function TPasResolver.IsClassField(El: TPasElement): boolean;
var
C: TClass;
begin begin
Result:=((El.ClassType=TPasVariable) or (El.ClassType=TPasConst)) if ((El.ClassType=TPasVariable) or (El.ClassType=TPasConst))
and ([vmClass,vmStatic]*TPasVariable(El).VarModifiers<>[]) and ([vmClass,vmStatic]*TPasVariable(El).VarModifiers<>[]) then
and (El.Parent is TPasClassType); begin
C:=El.Parent.ClassType;
Result:=(C=TPasClassType) or (C=TPasRecordType);
end
else
Result:=false;
end; end;
function TPasResolver.GetFunctionType(El: TPasElement): TPasFunctionType; function TPasResolver.GetFunctionType(El: TPasElement): TPasFunctionType;