* 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

@@ -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;