From ab79608453cc012f26d99cac175868124318d432 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 4 Apr 2011 10:58:32 +0000
Subject: [PATCH] codetools: TPascalReaderTool.GetNodeIdentifier: check if node
 starts at end of code, bug #19076

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

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index d24b44046b..db3aeb3cd9 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -1313,7 +1313,7 @@ end;
 function TPascalReaderTool.GetNodeIdentifier(Node: TCodeTreeNode): PChar;
 begin
   Result:=nil;
-  if Node=nil then exit;
+  if (Node=nil) or (Node.StartPos>SrcLen) then exit;
   case Node.Desc of
   ctnProcedure,ctnProcedureHead:
     Result:=GetProcNameIdentifier(Node);