Static specialization WIP

Src/AST/Myc.Ast.Debugger.pas

@@ -36,8 +36,6 @@ type
         function VisitConstant(const Node: IConstantNode): TDataValue; override;
         function VisitIdentifier(const Node: IIdentifierNode): TDataValue; override;
         function VisitKeyword(const Node: IKeywordNode): TDataValue; override;
-        function VisitBinaryExpression(const Node: IBinaryExpressionNode): TDataValue; override;
-        function VisitUnaryExpression(const Node: IUnaryExpressionNode): TDataValue; override;
         function VisitIfExpression(const Node: IIfExpressionNode): TDataValue; override;
         function VisitTernaryExpression(const Node: ITernaryExpressionNode): TDataValue; override;
         function VisitBlockExpression(const Node: IBlockExpressionNode): TDataValue; override;
@@ -84,7 +82,12 @@ end;
 
 function TDebugEvaluatorVisitor.VisitFunctionCall(const Node: IFunctionCallNode): TDataValue;
 begin
-    AppendLine('FunctionCall{');
+    AppendLine(
+        'FunctionCall ('
+            + (if Assigned(Node.StaticTarget) then 'STATIC'
+            else 'DYNAMIC')
+            + ' PATH) {'
+    );
     Indent;
     try
         ShowScope;
@@ -187,30 +190,6 @@ begin
     AppendLine(Format('Identifier "%s" -> %s', [Node.Name, Result.ToString]));
 end;
 
-function TDebugEvaluatorVisitor.VisitBinaryExpression(const Node: IBinaryExpressionNode): TDataValue;
-begin
-    AppendLine(Format('BinaryExpr "%s" {', [Node.Operator.ToString]));
-    Indent;
-    try
-        Result := inherited VisitBinaryExpression(Node);
-    finally
-        Unindent;
-    end;
-    AppendLine(Format('} -> %s', [Result.ToString]));
-end;
-
-function TDebugEvaluatorVisitor.VisitUnaryExpression(const Node: IUnaryExpressionNode): TDataValue;
-begin
-    AppendLine(Format('UnaryExpr "%s" {', [Node.Operator.ToString]));
-    Indent;
-    try
-        Result := inherited VisitUnaryExpression(Node);
-    finally
-        Unindent;
-    end;
-    AppendLine(Format('} -> %s', [Result.ToString]));
-end;
-
 function TDebugEvaluatorVisitor.VisitIfExpression(const Node: IIfExpressionNode): TDataValue;
 begin
     AppendLine('IfExpr{');