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

resolver: cleaned up

Browse Source 
git-svn-id: trunk@41064 -
This commit is contained in:
Mattias Gaertner 2019-01-25 07:59:34 +00:00
parent 4ab30223d3
commit c7c8f8ed6a
1 changed files with 28 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1482,8 +1482,6 @@ type
procedure FinishSection(Section: TPasSection); virtual;
procedure FinishInterfaceSection(Section: TPasSection); virtual;
procedure FinishTypeSection(El: TPasElement); virtual;
procedure FinishDeclarations(El: TPasDeclarations); virtual;
procedure FinishMemberType(El: TPasMembersType); virtual;
procedure FinishTypeSectionEl(El: TPasType); virtual;
procedure FinishTypeDef(El: TPasType); virtual;
procedure FinishEnumType(El: TPasEnumType); virtual;
@ -5097,42 +5095,43 @@ begin
end;
procedure TPasResolver.FinishTypeSection(El: TPasElement);
procedure FinishDeclarations(El: TPasDeclarations);
var
i: Integer;
Decl: TPasElement;
begin
for i:=0 to El.Declarations.Count-1 do
begin
Decl:=TPasElement(El.Declarations[i]);
if Decl is TPasType then
FinishTypeSectionEl(TPasType(Decl));
end;
end;
procedure FinishMembersType(El: TPasMembersType);
var
i: Integer;
Decl: TPasElement;
begin
for i:=0 to El.Members.Count-1 do
begin
Decl:=TPasElement(El.Members[i]);
if Decl is TPasType then
FinishTypeSectionEl(TPasType(Decl));
end;
end;
begin
// resolve pending forwards
if El is TPasDeclarations then
FinishDeclarations(TPasDeclarations(El))
else if El is TPasMembersType then
FinishMemberType(TPasMembersType(El))
FinishMembersType(TPasMembersType(El))
else
RaiseNotYetImplemented(20181226105933,El);
end;
procedure TPasResolver.FinishDeclarations(El: TPasDeclarations);
var
i: Integer;
Decl: TPasElement;
begin
for i:=0 to El.Declarations.Count-1 do
begin
Decl:=TPasElement(El.Declarations[i]);
if Decl is TPasType then
FinishTypeSectionEl(TPasType(Decl));
end;
end;
procedure TPasResolver.FinishMemberType(El: TPasMembersType);
var
i: Integer;
Decl: TPasElement;
begin
for i:=0 to El.Members.Count-1 do
begin
Decl:=TPasElement(El.Members[i]);
if Decl is TPasType then
FinishTypeSectionEl(TPasType(Decl));
end;
end;
procedure TPasResolver.FinishTypeSectionEl(El: TPasType);
function ReplaceDestType(Decl: TPasType; var DestType: TPasType;