Fix range with step function in SPythonSystem

This commit is contained in:
AlexanderZemlyak 2026-01-13 12:28:57 +03:00
parent 51e4ae050a
commit 9b3937cb03

View file

@ -634,7 +634,7 @@ function float(x: integer): real := PABCSystem.Floor(x);
function range(s: integer; e: integer; step: integer): sequence of integer;
begin
Result := PABCSystem.Range(s, e - 1, step);
Result := PABCSystem.Range(s, e - PABCSystem.Sign(step), step);
end;
function range(s: integer; e: integer): sequence of integer;