paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 02:20:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed searching in directory cache

Browse Source 
git-svn-id: trunk@12223 -
This commit is contained in:
mattias 2007-09-28 22:17:16 +00:00
parent 06c51688cf
commit 925f622bfe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/directorycacher.pas
View File

@ -674,7 +674,7 @@ begin
while r>=l do begin while r>=l do begin
m:=(l+r) shr 1; m:=(l+r) shr 1;
CurFilename:=@FListing.Names[FListing.NameStarts[m]]; CurFilename:=@FListing.Names[FListing.NameStarts[m]];
cmp:=stricomp(PChar(Pointer(UnitName)),CurFilename); cmp:=ComparePCharFirstCaseInsThenCase(PChar(Pointer(UnitName)),CurFilename);
if cmp>0 then if cmp>0 then
l:=m+1 l:=m+1
else if cmp<0 then else if cmp<0 then