paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01: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

25
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,17 +5095,8 @@ begin
end;
procedure TPasResolver.FinishTypeSection(El: TPasElement);
begin
// resolve pending forwards
if El is TPasDeclarations then
FinishDeclarations(TPasDeclarations(El))
else if El is TPasMembersType then
FinishMemberType(TPasMembersType(El))
else
RaiseNotYetImplemented(20181226105933,El);
end;
procedure TPasResolver.FinishDeclarations(El: TPasDeclarations);
procedure FinishDeclarations(El: TPasDeclarations);
var
i: Integer;
Decl: TPasElement;
@ -5120,7 +5109,7 @@ begin
end;
end;
procedure TPasResolver.FinishMemberType(El: TPasMembersType);
procedure FinishMembersType(El: TPasMembersType);
var
i: Integer;
Decl: TPasElement;
@ -5133,6 +5122,16 @@ begin
end;
end;
begin
// resolve pending forwards
if El is TPasDeclarations then
FinishDeclarations(TPasDeclarations(El))
else if El is TPasMembersType then
FinishMembersType(TPasMembersType(El))
else
RaiseNotYetImplemented(20181226105933,El);
end;
procedure TPasResolver.FinishTypeSectionEl(El: TPasType);
function ReplaceDestType(Decl: TPasType; var DestType: TPasType;