From 5fd00cffab0df242f49a67b10701d431a6b7f2a8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 28 Nov 2009 12:59:13 +0000
Subject: [PATCH] codetools: expreval: reading closing bracket if last char

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

diff --git a/components/codetools/expreval.pas b/components/codetools/expreval.pas
index 3f43213cbb..2c7b56c957 100644
--- a/components/codetools/expreval.pas
+++ b/components/codetools/expreval.pas
@@ -1379,7 +1379,7 @@ var
   begin
     BracketOpen:=AtomStart;
     BracketLvl:=0;
-    while p<ExprEnd do begin
+    while p<=ExprEnd do begin
       case AtomStart^ of
       '(': inc(BracketLvl);
       ')':