small fix of json parser.

This commit is contained in:
Norayr Chilingarian 2022-02-01 03:26:49 +04:00
parent a52c3efa8e
commit f904807696

View file

@ -124,7 +124,7 @@ PROCEDURE GetNoneTerminalKeys(self : JsonTypePointer; VAR destination : ARRAY OF
VAR
i: LONGINT;
BEGIN
FOR i := 0 TO LEN(self.NonTerminalKeys) - 1 DO
FOR i := 0 TO self.NonTerminalNumber - 1 DO
destination[i] := self.NonTerminalKeys[i];
END;
END GetNoneTerminalKeys;