Replaced Count-Node by RTL-Function
This commit is contained in:
@@ -49,7 +49,6 @@ type
|
||||
function VisitRecordLiteral(const N: IAstNode): TVoid;
|
||||
function VisitCreateSeries(const N: IAstNode): TVoid;
|
||||
function VisitAddSeriesItem(const N: IAstNode): TVoid;
|
||||
function VisitSeriesLength(const N: IAstNode): TVoid;
|
||||
function VisitRecurNode(const N: IAstNode): TVoid;
|
||||
function VisitNop(const N: IAstNode): TVoid;
|
||||
|
||||
@@ -108,7 +107,6 @@ begin
|
||||
Register(akRecordLiteral, VisitRecordLiteral);
|
||||
Register(akCreateSeries, VisitCreateSeries);
|
||||
Register(akAddSeriesItem, VisitAddSeriesItem);
|
||||
Register(akSeriesLength, VisitSeriesLength);
|
||||
Register(akRecur, VisitRecurNode);
|
||||
Register(akNop, VisitNop);
|
||||
|
||||
@@ -480,11 +478,4 @@ begin
|
||||
Append(')');
|
||||
end;
|
||||
|
||||
function TPrettyPrintVisitor.VisitSeriesLength(const N: IAstNode): TVoid;
|
||||
begin
|
||||
Append('(count ');
|
||||
Visit(N.AsSeriesLength.Series);
|
||||
Append(')');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user