From d4f696a18d1c87200102c2cf4ca8617402841117 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 09:30:16 +0000
Subject: [PATCH] * Merging revisions r46281 from trunk:    
 ------------------------------------------------------------------------    
 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 -
---
 packages/fcl-passrc/src/paswrite.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 785ea09471..5c8b15ecca 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -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;