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

fcl-passrc: paswrite: allow write TPasImplCommand and TPasImplCommands directly in TPasWriter.WriteElement. Useful way to build pascal code by using predfined code blocks.

Browse Source 
git-svn-id: trunk@36616 -
This commit is contained in:
maciej-izak 2017-06-29 13:24:42 +00:00
parent 584ef096a0
commit 6006c6a8bd
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

@ -141,6 +141,8 @@ begin
WriteProcDecl(TPasProcedure(AElement))
else if AElement.InheritsFrom(TPasProcedureImpl) then
WriteProcImpl(TPasProcedureImpl(AElement))
else if AElement.InheritsFrom(TPasImplCommand) or AElement.InheritsFrom(TPasImplCommands) then
WriteImplElement(TPasImplElement(AElement),false)
else
raise Exception.Create('Writing not implemented for ' +
AElement.ElementTypeName + ' nodes');