diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-05 20:53:38 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-05 20:53:38 +0000 |
| commit | 84194470b5f37a3a22f0b2a119abbc842579de4e (patch) | |
| tree | 11d6d8795947b77eaf8fdb9a3e5ef67f2a9a8b75 /packages/rtl-objpas | |
| parent | b8cbe07b588030a3668c02fb414088e96c3c6d54 (diff) | |
| download | fpc-84194470b5f37a3a22f0b2a119abbc842579de4e.tar.gz | |
* Micro-optimization, bug id 38044
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47327 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/rtl-objpas')
| -rw-r--r-- | packages/rtl-objpas/src/inc/strutils.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp index 9563ec23fe..a84075f9b7 100644 --- a/packages/rtl-objpas/src/inc/strutils.pp +++ b/packages/rtl-objpas/src/inc/strutils.pp @@ -355,7 +355,7 @@ type i: SizeInt; begin i:=0; - while (aPattern[aPos-i] = aPattern[aPatternSize-1-i]) and (i < aPos) do begin + while (i<aPos) and (aPattern[aPos-i] = aPattern[aPatternSize-1-i]) do begin inc(i); end; Result:=i; @@ -493,7 +493,7 @@ type i: SizeInt; begin i:=0; - while (aPattern[aPos-i] = aPattern[aPatternSize-1-i]) and (i < aPos) do begin + while (i<aPos) and (aPattern[aPos-i] = aPattern[aPatternSize-1-i]) do begin inc(i); end; Result:=i; |