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

* Merging revisions r46281 from trunk:

Browse Source 
------------------------------------------------------------------------
    r46281 | michael | 2020-08-06 08:55:06 +0200 (Thu, 06 Aug 2020) | 1 line
    
    * Support writing sets
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46607 -
This commit is contained in:
michael 2020-08-23 09:30:16 +00:00
parent d791d13e4d
commit d4f696a18d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -289,9 +289,10 @@ begin
WriteAliasType(TPasAliasType(AType)) WriteAliasType(TPasAliasType(AType))
else if AType is TPasPointerType then else if AType is TPasPointerType then
Add(AType.GetDeclaration(true)) Add(AType.GetDeclaration(true))
else if AType is TPasSetType then
Add(AType.GetDeclaration(true))
else else
raise EPasWriter.Create('Writing not implemented for ' + raise EPasWriter.CreateFmt('Writing not implemented for %s type nodes',[aType.ElementTypeName]);
AType.ElementTypeName + ' nodes');
if Full then if Full then
AddLn(';'); AddLn(';');
end; end;