From a64605ceecfd2287ff157aad76aa2318a8e90284 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 25 Oct 2017 20:19:02 +0000
Subject: [PATCH] codetools: fixed GetIdentStartEndAtPosition if pos behind
 source

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

diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index 0272c190a3..bdb8155448 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -1828,7 +1828,7 @@ begin
     inc(IdentStart);
   if (IdentStart>1) and (Source[IdentStart-1]='&') then
     dec(IdentStart);
-  if not IsIdentStartChar[Source[IdentStart]] then
+  if (IdentStart>length(Source)) or not IsIdentStartChar[Source[IdentStart]] then
     IdentEnd:=IdentStart;
 end;