Replaced Count-Node by RTL-Function

Src/AST/Myc.Ast.Analysis.Purity.pas

@@ -22,7 +22,6 @@ type
         function VisitBlockExpression(const Node: IAstNode): Boolean;
         function VisitRecordLiteral(const Node: IAstNode): Boolean;
         function VisitVariableDeclaration(const Node: IAstNode): Boolean;
-        function VisitSeriesLength(const Node: IAstNode): Boolean;
 
         // --- Elements ---
         function VisitRecordField(const Node: IAstNode): Boolean;
@@ -120,7 +119,6 @@ begin
     Register(akRecordLiteral, VisitRecordLiteral);
     Register(akCreateSeries, VisitCreateSeries);
     Register(akAddSeriesItem, VisitAddSeriesItem);
-    Register(akSeriesLength, VisitSeriesLength);
     Register(akRecur, VisitRecurNode);
     Register(akNop, VisitNop);
 
@@ -257,13 +255,6 @@ begin
     Result := IsNodePure(Node.AsMemberAccess.Base);
 end;
 
-function TPurityAnalyzer.VisitSeriesLength(const Node: IAstNode): Boolean;
-begin
-    // Querying length is pure.
-    // The series identifier check happens in VisitIdentifier.
-    Result := True;
-end;
-
 // --- Forbidden (Impure) ---
 
 function TPurityAnalyzer.VisitAssignment(const Node: IAstNode): Boolean;