paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 09:51:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: paswrite: prepare type section for enums and unresolved type ref.

Browse Source 
git-svn-id: trunk@36786 -
This commit is contained in:
maciej-izak 2017-07-25 13:28:05 +00:00
parent 031c28c58e
commit c025e4cb61
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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