AST testing

This commit is contained in:
Michael Schimmel
2025-11-23 00:24:43 +01:00
parent c5167b8550
commit a052dfb20f
23 changed files with 792 additions and 1260 deletions
+2 -2
View File
@@ -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;