From 7185e6dc6142ad5f8f212ace6a964e4435f193eb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 13 May 2013 22:21:01 +0000
Subject: [PATCH] codetools: fixed crash finding directive

git-svn-id: trunk@41182 -
---
 components/codetools/linkscanner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index 1f364f881a..a7247b2bcb 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -1294,7 +1294,7 @@ begin
   Dir.Code:=aCode;
   Dir.SrcPos:=aSrcPos;
   l:=0;
-  r:=FDirectivesCount;
+  r:=FDirectivesCount-1;
   while l<=r do begin
     m:=(l+r) div 2;
     cmp:=CompareLSDirective(@Dir,DirectivesSorted[m]);