-1 теперь корректный to для SystemSlice

2020-05-05 12:10:40 +03:00 · 2020-05-05 12:10:40 +03:00 · 1313d75374
parent adf85f831c
commit 1313d75374
1 changed files with 1 additions and 1 deletions
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@ -10444,7 +10444,7 @@ begin
      raise new ArgumentException(GetTranslation(PARAMETER_FROM_OUT_OF_RANGE));
  
  if (situation = 0) or (situation = 1) then
-    if (&to < 0) or (&to > Len) then
+    if (&to < -1) or (&to > Len) then
      raise new ArgumentException(GetTranslation(PARAMETER_TO_OUT_OF_RANGE));
  
  if situation > 0 then