From 83fc7123261e52f52f07dba79cf613922310a9c5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 17 Jul 2006 18:47:07 +0000
Subject: [PATCH] codetools: fixed parsing invalid subrange

git-svn-id: trunk@9626 -
---
 components/codetools/pascalparsertool.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 46c7488dea..4f7084617a 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1731,6 +1731,8 @@ begin
                        cafEdgedBracketClose]
     then
       break;
+    if CurPos.StartPos>SrcLen then
+      RaiseCharExpectedButAtomFound(';');
     if AtomIs('..') then begin
       if RangeOpFound then
         RaiseCharExpectedButAtomFound(';');