* Add writing of file type

packages/fcl-passrc/src/paswrite.pp

@@ -344,6 +344,8 @@ begin
     Add(AType.GetDeclaration(true))
   else if AType is TPasRangeType then
     Add(AType.GetDeclaration(true))
+  else if AType is TPasFileType then
+    Add(AType.GetDeclaration(true))
   else
     raise EPasWriter.CreateFmt('Writing not implemented for %s type nodes',[aType.ElementTypeName]);
   if Full then