paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 18:32:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed crash finding directive

Browse Source 
git-svn-id: trunk@41182 -
This commit is contained in:
mattias 2013-05-13 22:21:01 +00:00
parent 20a03cef69
commit 7185e6dc61
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/linkscanner.pas
View File

@ -1294,7 +1294,7 @@ begin
Dir.Code:=aCode; Dir.Code:=aCode;
Dir.SrcPos:=aSrcPos; Dir.SrcPos:=aSrcPos;
l:=0; l:=0;
r:=FDirectivesCount; r:=FDirectivesCount-1;
while l<=r do begin while l<=r do begin
m:=(l+r) div 2; m:=(l+r) div 2;
cmp:=CompareLSDirective(@Dir,DirectivesSorted[m]); cmp:=CompareLSDirective(@Dir,DirectivesSorted[m]);