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

fcl-passrc: paswrite: prepare 'type' section for types only when type has parent like module interface section etc.

Browse Source 
git-svn-id: trunk@36787 -
This commit is contained in:
maciej-izak 2017-07-25 13:51:59 +00:00
parent c025e4cb61
commit ddc7631e09
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -150,7 +150,8 @@ end;
procedure TPasWriter.WriteType(AType: TPasType);
begin
PrepareDeclSection('type');
if AType.Parent is TPasSection then
PrepareDeclSection('type');
if AType.ClassType = TPasUnresolvedTypeRef then
wrt(AType.Name)
else if AType.ClassType = TPasClassType then