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

Correctly handle subclasses, patch by Henrique Werlang (issue #39195)

Browse Source 
git-svn-id: trunk@49589 -
This commit is contained in:
michael 2021-07-10 10:01:48 +00:00
parent c185ce02cc
commit c7690907e7
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
packages/fcl-passrc/src/paswrite.pp
View File

@ -436,9 +436,26 @@ procedure TPasWriter.WriteDummyExternalFunctions(aSection : TPasSection);
end;
end;
procedure DoCheckClass(C: TPasClassType; Force : Boolean; Prefix: String);
var
I: Integer;
M : TPasElement;
begin
if (C.ExternalName<>'') then
for I:=0 to C.Members.Count-1 do
begin
M:=TPasElement(C.members[I]);
if (M is TPasClassType) then
DoCheckClass(M as TPasClassType, Force, Prefix + C.SafeName + '.')
else
DoCheckElement(M, Force, Prefix + C.SafeName + '.');
end;
end;
Var
I,J : Integer;
E,M : TPasElement;
I : Integer;
E : TPasElement;
C : TPasClassType;
begin
@ -450,15 +467,7 @@ begin
E:=TPasElement(aSection.Declarations[i]);
DoCheckElement(E,False,'');
if (E is TPasClassType) then
begin
C:=E as TPasClassType;
if (C.ExternalName<>'') then
For J:=0 to C.Members.Count-1 do
begin
M:=TPasElement(C.members[J]);
DoCheckElement(M,True,C.SafeName+'.');
end;
end;
DoCheckClass(E as TPasClassType, True, '');
end;
Addln;
Addln('// end of dummy implementations');