paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +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)
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 = class(TPasImplElement)
public
constructor Create(const AName: string; AParent: TPasElement); override;
TPasImplCommand = class(TPasImplCommandBase)
public
Command: string; // never set by TPasParser
SemicolonAtEOL: boolean;
end;
{ TPasImplCommands - used by mkxmlrpc, not used by pparser }
TPasImplCommands = class(TPasImplElement)
TPasImplCommands = class(TPasImplCommandBase)
public
constructor Create(const AName: string; AParent: TPasElement); override;
destructor Destroy; override;
public
Commands: TStrings;
SemicolonAtEOL: boolean;
end;
{ TPasLabels }
@ -1524,9 +1528,9 @@ begin
El:=nil;
end;
{ TPasImplCommand }
{ TPasImplCommandBase }
constructor TPasImplCommand.Create(const AName: string; AParent: TPasElement);
constructor TPasImplCommandBase.Create(const AName: string; AParent: TPasElement);
begin
inherited Create(AName, AParent);
SemicolonAtEOL := true;
@ -2939,7 +2943,6 @@ constructor TPasImplCommands.Create(const AName: string; AParent: TPasElement);
begin
inherited Create(AName, AParent);
Commands := TStringList.Create;
SemicolonAtEOL := true;
end;
destructor TPasImplCommands.Destroy;