paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Write more types

Browse Source 
git-svn-id: trunk@37443 -
This commit is contained in:
michael 2017-10-10 18:07:50 +00:00
parent b1e4515896
commit 352f99c15f
2 changed files with 46 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-passrc/src/pastree.pp
View File

@ -3506,7 +3506,12 @@ begin
end
else
begin
Result:='Set of '+EnumType.Name;
if (EnumType.Name<>'') then
Result:='Set of '+EnumType.Name
else if (enumtype is TPasRangeType) then
Result:='Set of '+TPasRangeType(enumtype).RangeStart+'..'+TPasRangeType(enumtype).RangeEnd
else
Raise EParserError.Create('Unknown pastree enum element = '+EnumType.ClassName);
If Full then
Result:=Name+' = '+Result;
end;

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

@ -83,7 +83,11 @@ type
constructor Create(AStream: TStream); virtual;
destructor Destroy; override;
procedure AddForwardClasses(aSection: TPasSection); virtual;
procedure WriteRangeType(AType: TPasRangeType); virtual;
procedure WriteEnumType(AType: TPasEnumType); virtual;
procedure WriteFileType(AType: TPasFileType); virtual;
procedure WriteSetType(AType: TPasSetType); virtual;
procedure WritePointerType(AType: TPasPointerType); virtual;
procedure WriteElement(AElement: TPasElement);virtual;
procedure WriteType(AType: TPasType; Full : Boolean = True);virtual;
procedure WriteProgram(aModule : TPasProgram); virtual;
@ -257,6 +261,30 @@ begin
Add(Atype.GetDeclaration(true));
end;
procedure TPasWriter.WriteSetType(AType: TPasSetType);
begin
Add(Atype.GetDeclaration(true));
end;
procedure TPasWriter.WritePointerType(AType: TPasPointerType);
begin
Add(Atype.GetDeclaration(true));
end;
procedure TPasWriter.WriteFileType(AType: TPasFileType);
begin
Add(Atype.GetDeclaration(true));
end;
procedure TPasWriter.WriteRangeType(AType: TPasRangeType);
begin
Add(Atype.GetDeclaration(true));
end;
procedure TPasWriter.WriteType(AType: TPasType; Full : Boolean = True);
begin
@ -269,19 +297,26 @@ begin
WriteClass(TPasClassType(AType))
else if AType.ClassType = TPasEnumType then
WriteEnumType(TPasEnumType(AType))
else if AType is TPasSetType then
WriteSetType(TPasSetType(AType))
else if AType is TPasProcedureType then
WriteProcType(TPasProcedureType(AType))
else if AType is TPasArrayType then
WriteArrayType(TPasArrayType(AType))
else if AType is TPasRangeType then
WriteRangeType(TPasRangeType(AType))
else if AType is TPasRecordType then
WriteRecordType(TPasRecordType(AType))
else if AType is TPasAliasType then
WriteAliasType(TPasAliasType(AType))
else if AType is TPasFileType then
WriteFileType(TPasFileType(AType))
else if AType is TPasPointerType then
Add(AType.GetDeclaration(true))
WritePointerType(TPasPointerType(AType))
else if AType is TPasPointerType then
WriteRangeType(TPasRangeType(AType))
else
raise EPasWriter.Create('Writing not implemented for ' +
AType.ElementTypeName + ' nodes');
Raise EPasWriter.CreateFmt('Writing not implemented for %s nodes',[AType.ElementTypeName]);
if Full then
AddLn(';');
end;
@ -892,7 +927,7 @@ procedure TPasWriter.WriteProcImpl(AProc: TPasProcedureImpl);
var
i: Integer;
E,PE :TPasElement;
E,PE : TPasElement;
begin
PrepareDeclSection('');
@ -912,6 +947,7 @@ begin
end;
AddLn(';');
IncDeclSectionLevel;
PE:=Nil;
for i := 0 to AProc.Locals.Count - 1 do
begin
E:=TPasElement(AProc.Locals[i]);