AST testing
This commit is contained in:
@@ -319,7 +319,7 @@ function TJsonAstConverter.VisitVariableDeclaration(const Node: IVariableDeclara
|
||||
var
|
||||
identObj, initObj: TJSONObject;
|
||||
begin
|
||||
identObj := Accept(Node.Identifier);
|
||||
identObj := Accept(Node.Target);
|
||||
initObj := Accept(Node.Initializer); // Accept handles nil
|
||||
|
||||
Result := TJSONObject.Create;
|
||||
@@ -336,7 +336,7 @@ function TJsonAstConverter.VisitAssignment(const Node: IAssignmentNode): TJSONOb
|
||||
var
|
||||
identObj, valueObj: TJSONObject;
|
||||
begin
|
||||
identObj := Accept(Node.Identifier);
|
||||
identObj := Accept(Node.Target);
|
||||
valueObj := Accept(Node.Value);
|
||||
|
||||
Result := TJSONObject.Create;
|
||||
|
||||
Reference in New Issue
Block a user