Fix range with step function in SPythonSystem
This commit is contained in:
parent
51e4ae050a
commit
9b3937cb03
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in a new issue