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

fcl-passrc: resolver: fixed [][]

Browse Source 
git-svn-id: trunk@36926 -
This commit is contained in:
Mattias Gaertner 2017-08-16 10:29:32 +00:00
parent 86ab5a4fd0
commit 0ddf135404
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5591,7 +5591,8 @@ begin
// e.g. Name()[] or Name[][]
ResolveExpr(SubParams,rraRead);
ComputeElement(SubParams,ResolvedEl,[rcSkipTypeAlias,rcNoImplicitProc,rcSetReferenceFlags]);
CreateReference(ResolvedEl.TypeEl,Value,Access);
if Value.CustomData=nil then
CreateReference(ResolvedEl.TypeEl,Value,Access);
end
else
RaiseNotYetImplemented(20161010194925,Value);
@ -9988,7 +9989,7 @@ function TPasResolver.CreateReference(DeclEl, RefEl: TPasElement;
writeln(' RefEl.CustomData=',GetObjName(RefEl.CustomData));
if RefEl.CustomData is TResolvedReference then
begin
FormerDeclEl:=TResolvedReference(RefEl.CustomData).Declaration;
FormerDeclEl:=TResolvedReference(RefEl.CustomData).Declaration;
writeln(' TResolvedReference(RefEl.CustomData).Declaration=',GetObjName(FormerDeclEl),
' IsSame=',FormerDeclEl=DeclEl);
end;