diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-25 08:51:21 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-25 08:51:21 +0000 |
commit | 38a4230d7f5e5a7ce7d2091c5565c212ec0103f6 (patch) | |
tree | 80d8a48e6197072199351989f3c347ee5b8b0f8f /rtl/objpas | |
parent | 608af918147c68a98633141fac7c11c70100c8b7 (diff) | |
download | fpc-38a4230d7f5e5a7ce7d2091c5565c212ec0103f6.tar.gz |
* Fix bug ID 37814: correctly initialize max chars
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46951 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/objpas')
-rw-r--r-- | rtl/objpas/sysutils/syshelp.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/objpas/sysutils/syshelp.inc b/rtl/objpas/sysutils/syshelp.inc index f9676d2c88..d69a0f2a9a 100644 --- a/rtl/objpas/sysutils/syshelp.inc +++ b/rtl/objpas/sysutils/syshelp.inc @@ -960,7 +960,7 @@ begin if (I>LS) then I:=LS; I:=I-L+1; - M:=AStartIndex-ACount+1; // 1 based + M:=AStartIndex-ACount+2; // 1 based if M<1 then M:=1; while (Result=-1) and (I>=M) do |