Ast visitor refactoring

2025-12-04 11:28:40 +01:00
parent a7290550e7
commit 9ed563bcc1
4 changed files with 331 additions and 569 deletions
@@ -37,7 +37,7 @@ type
                FMap: TNodeMap;
                procedure ApplyType(const Node: IAstNode);
            protected
-                procedure Accept(const Node: IAstNode); override;
+                function Accept(const Node: IAstNode): TVoid; override;
            public
                constructor Create(AMap: TNodeMap);
            end;
@@ -968,7 +968,7 @@ begin
    end;
 end;

-procedure TAstEditor.TTypePropagator.Accept(const Node: IAstNode);
+function TAstEditor.TTypePropagator.Accept(const Node: IAstNode): TVoid;
 begin
    if Node = nil then
        exit;