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

fcl-passrc: paswrite: proper write for properties (previously WriteProperty was not executed)

Browse Source 
git-svn-id: trunk@36608 -
This commit is contained in:
maciej-izak 2017-06-27 12:52:58 +00:00
parent b35522d947
commit bcacbe1cba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -131,6 +131,8 @@ begin
WriteModule(TPasModule(AElement)) WriteModule(TPasModule(AElement))
else if AElement.InheritsFrom(TPasSection) then else if AElement.InheritsFrom(TPasSection) then
WriteSection(TPasSection(AElement)) WriteSection(TPasSection(AElement))
else if AElement.ClassType = TPasProperty then
WriteProperty(TPasProperty(AElement))
else if AElement.InheritsFrom(TPasVariable) then else if AElement.InheritsFrom(TPasVariable) then
WriteVariable(TPasVariable(AElement)) WriteVariable(TPasVariable(AElement))
else if AElement.InheritsFrom(TPasType) then else if AElement.InheritsFrom(TPasType) then
@ -139,8 +141,6 @@ begin
WriteProcDecl(TPasProcedure(AElement)) WriteProcDecl(TPasProcedure(AElement))
else if AElement.InheritsFrom(TPasProcedureImpl) then else if AElement.InheritsFrom(TPasProcedureImpl) then
WriteProcImpl(TPasProcedureImpl(AElement)) WriteProcImpl(TPasProcedureImpl(AElement))
else if AElement.ClassType = TPasProperty then
WriteProperty(TPasProperty(AElement))
else else
raise Exception.Create('Writing not implemented for ' + raise Exception.Create('Writing not implemented for ' +
AElement.ElementTypeName + ' nodes'); AElement.ElementTypeName + ' nodes');