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

fcl-passrc: paswrite: write enums

Browse Source 
git-svn-id: trunk@36784 -
This commit is contained in:
maciej-izak 2017-07-24 14:01:07 +00:00
parent c77b403928
commit 93b8a2de44
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -154,6 +154,8 @@ begin
wrt(AType.Name) wrt(AType.Name)
else if AType.ClassType = TPasClassType then else if AType.ClassType = TPasClassType then
WriteClass(TPasClassType(AType)) WriteClass(TPasClassType(AType))
else if AType.ClassType = TPasEnumType then
wrtln(TPasEnumType(AType).GetDeclaration(true) + ';')
else else
raise Exception.Create('Writing not implemented for ' + raise Exception.Create('Writing not implemented for ' +
AType.ElementTypeName + ' nodes'); AType.ElementTypeName + ' nodes');