diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-10-12 06:08:49 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-10-12 06:08:49 +0000 |
commit | 0cfb0ecc440b9df53dcf24a3f53690fc7e570e0f (patch) | |
tree | 5af6e9b5aaa23937a471e1897b85a96e88680eb0 /rtl | |
parent | 349b9ac81773944e0fff0bad49b1c1602f8b8d8e (diff) | |
download | fpc-0cfb0ecc440b9df53dcf24a3f53690fc7e570e0f.tar.gz |
--- Merging r46951 into '.':
U rtl/objpas/sysutils/syshelp.inc
--- Recording mergeinfo for merge of r46951 into '.':
U .
# revisions: 46951
r46951 | michael | 2020-09-25 10:51:21 +0200 (Fri, 25 Sep 2020) | 1 line
Changed paths:
M /trunk/rtl/objpas/sysutils/syshelp.inc
* Fix bug ID 37814: correctly initialize max chars
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@47097 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl')
-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 |