paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 23:17:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: expreval: fixed searching closing bracket

Browse Source 
git-svn-id: trunk@22867 -
This commit is contained in:
mattias 2009-11-30 08:56:44 +00:00
parent 78d2df6cba
commit 6d42a4b2d0
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
BracketOpen:=AtomStart;
BracketLvl:=0;
while p<=ExprEnd do begin
while AtomStart<ExprEnd do begin
case AtomStart^ of
'(': inc(BracketLvl);
')':