paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Exit find if not sorted (bug id 28774)

Browse Source 
git-svn-id: trunk@31941 -
This commit is contained in:
michael 2015-10-04 08:07:51 +00:00
parent 08817204a8
commit aa3a7b7eb8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/stringl.inc
View File

@ -1390,6 +1390,8 @@ var
CompareRes: PtrInt; CompareRes: PtrInt;
begin begin
Result := false; Result := false;
if Not Sorted then
exit;
// Use binary search. // Use binary search.
L := 0; L := 0;
R := Count - 1; R := Count - 1;