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

fcl-passrc: paswrite: allow to write pointer type

Browse Source 
git-svn-id: trunk@37179 -
This commit is contained in:
maciej-izak 2017-09-11 13:44:44 +00:00
parent 12f444c282
commit 532e256579
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

@ -277,6 +277,8 @@ begin
WriteRecordType(TPasRecordType(AType))
else if AType is TPasAliasType then
WriteAliasType(TPasAliasType(AType))
else if AType is TPasPointerType then
Add(AType.GetDeclaration(true))
else
raise EPasWriter.Create('Writing not implemented for ' +
AType.ElementTypeName + ' nodes');