paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: expreval: reading closing bracket if last char

Browse Source 
git-svn-id: trunk@22850 -
This commit is contained in:
mattias 2009-11-28 12:59:13 +00:00
parent 830714131b
commit 5fd00cffab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/expreval.pas
View File

@ -1379,7 +1379,7 @@ var
begin begin
BracketOpen:=AtomStart; BracketOpen:=AtomStart;
BracketLvl:=0; BracketLvl:=0;
while p<ExprEnd do begin while p<=ExprEnd do begin
case AtomStart^ of case AtomStart^ of
'(': inc(BracketLvl); '(': inc(BracketLvl);
')': ')':