paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:59:26 +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

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

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