Tail call optimization
This commit is contained in:
@@ -31,13 +31,6 @@ type
|
||||
public
|
||||
constructor Create(const AScope: IExecutionScope; ALog: TStrings; AShowScope: Boolean; AInitialIndent: Integer = 0);
|
||||
|
||||
class function CreateVisitor(
|
||||
const AScope: IExecutionScope;
|
||||
ALog: TStrings;
|
||||
AShowScope: Boolean;
|
||||
AInitialIndent: Integer = 0
|
||||
): IAstVisitor;
|
||||
|
||||
function VisitFunctionCall(const Node: IFunctionCallNode): TDataValue; override;
|
||||
// The logging overrides for other Visit... methods
|
||||
function VisitConstant(const Node: IConstantNode): TDataValue; override;
|
||||
@@ -121,16 +114,6 @@ begin
|
||||
FLog.Add(pad + S);
|
||||
end;
|
||||
|
||||
class function TDebugEvaluatorVisitor.CreateVisitor(
|
||||
const AScope: IExecutionScope;
|
||||
ALog: TStrings;
|
||||
AShowScope: Boolean;
|
||||
AInitialIndent: Integer = 0
|
||||
): IAstVisitor;
|
||||
begin
|
||||
Result := TDebugEvaluatorVisitor.Create(AScope, ALog, AShowScope, AInitialIndent);
|
||||
end;
|
||||
|
||||
procedure TDebugEvaluatorVisitor.ShowScope;
|
||||
var
|
||||
scopeDump: TArray<string>;
|
||||
|
||||
Reference in New Issue
Block a user