paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 17:52:51 +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 FinishSection(Section: TPasSection); virtual;
procedure FinishInterfaceSection(Section: TPasSection); virtual; procedure FinishInterfaceSection(Section: TPasSection); virtual;
procedure FinishTypeSection(El: TPasElement); virtual; procedure FinishTypeSection(El: TPasElement); virtual;
procedure FinishDeclarations(El: TPasDeclarations); virtual;
procedure FinishMemberType(El: TPasMembersType); virtual;
procedure FinishTypeSectionEl(El: TPasType); virtual; procedure FinishTypeSectionEl(El: TPasType); virtual;
procedure FinishTypeDef(El: TPasType); virtual; procedure FinishTypeDef(El: TPasType); virtual;
procedure FinishEnumType(El: TPasEnumType); virtual; procedure FinishEnumType(El: TPasEnumType); virtual;
@ -5097,17 +5095,8 @@ begin
end; end;
procedure TPasResolver.FinishTypeSection(El: TPasElement); 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 var
i: Integer; i: Integer;
Decl: TPasElement; Decl: TPasElement;
@ -5120,7 +5109,7 @@ begin
end; end;
end; end;
procedure TPasResolver.FinishMemberType(El: TPasMembersType); procedure FinishMembersType(El: TPasMembersType);
var var
i: Integer; i: Integer;
Decl: TPasElement; Decl: TPasElement;
@ -5133,6 +5122,16 @@ begin
end; end;
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); procedure TPasResolver.FinishTypeSectionEl(El: TPasType);
function ReplaceDestType(Decl: TPasType; var DestType: TPasType; function ReplaceDestType(Decl: TPasType; var DestType: TPasType;