paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: pastree: Move option SemicolonAtEOL to new more generic class TPasImplCommandBase

Browse Source 
git-svn-id: trunk@36622 -
This commit is contained in:
maciej-izak 2017-06-30 22:55:55 +00:00
parent 99f7c010a8
commit 8225588722
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1105,25 +1105,29 @@ Type
TPasImplElement = class(TPasElement) TPasImplElement = class(TPasElement)
end; end;
{ TPasImplCommandBase }
TPasImplCommandBase = class(TPasImplElement)
public
SemicolonAtEOL: boolean;
constructor Create(const AName: string; AParent: TPasElement); override;
end;
{ TPasImplCommand - currently used as empty statement, e.g. if then else ; } { TPasImplCommand - currently used as empty statement, e.g. if then else ; }
TPasImplCommand = class(TPasImplElement) TPasImplCommand = class(TPasImplCommandBase)
public
constructor Create(const AName: string; AParent: TPasElement); override;
public public
Command: string; // never set by TPasParser Command: string; // never set by TPasParser
SemicolonAtEOL: boolean;
end; end;
{ TPasImplCommands - used by mkxmlrpc, not used by pparser } { TPasImplCommands - used by mkxmlrpc, not used by pparser }
TPasImplCommands = class(TPasImplElement) TPasImplCommands = class(TPasImplCommandBase)
public public
constructor Create(const AName: string; AParent: TPasElement); override; constructor Create(const AName: string; AParent: TPasElement); override;
destructor Destroy; override; destructor Destroy; override;
public public
Commands: TStrings; Commands: TStrings;
SemicolonAtEOL: boolean;
end; end;
{ TPasLabels } { TPasLabels }
@ -1524,9 +1528,9 @@ begin
El:=nil; El:=nil;
end; end;
{ TPasImplCommand } { TPasImplCommandBase }
constructor TPasImplCommand.Create(const AName: string; AParent: TPasElement); constructor TPasImplCommandBase.Create(const AName: string; AParent: TPasElement);
begin begin
inherited Create(AName, AParent); inherited Create(AName, AParent);
SemicolonAtEOL := true; SemicolonAtEOL := true;
@ -2939,7 +2943,6 @@ constructor TPasImplCommands.Create(const AName: string; AParent: TPasElement);
begin begin
inherited Create(AName, AParent); inherited Create(AName, AParent);
Commands := TStringList.Create; Commands := TStringList.Create;
SemicolonAtEOL := true;
end; end;
destructor TPasImplCommands.Destroy; destructor TPasImplCommands.Destroy;