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