paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 18:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: cfg script: fixed parsing begin statement without semicolon end

Browse Source 
git-svn-id: trunk@33787 -
This commit is contained in:
mattias 2011-11-26 01:26:19 +00:00
parent 188d79a71d
commit 72eee13e70
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codetoolscfgscript.pas
View File

@ -1336,7 +1336,7 @@ var
StartTop: LongInt;
begin
{$IFDEF VerboseCTCfgScript}
debugln(['TCTConfigScriptEngine.ParseStatement Atom=',GetAtom]);
debugln(['TCTConfigScriptEngine.RunStatement Atom=',GetAtom]);
{$ENDIF}
StartTop:=FStack.Top;
case AtomStart^ of
@ -1403,8 +1403,8 @@ begin
BeginStart:=AtomStart;
StartTop:=FStack.Top;
FStack.Push(ctcssBegin,AtomStart);
ReadRawNextPascalAtom(Src,AtomStart);
repeat
ReadRawNextPascalAtom(Src,AtomStart);
if (AtomStart^=#0) then begin
ErrorMissingEnd;
break;
@ -1412,8 +1412,9 @@ begin
FStack.Pop;
ReadRawNextPascalAtom(Src,AtomStart);
break;
end else if AtomStart=';' then begin
end else if AtomStart^=';' then begin
// skip
ReadRawNextPascalAtom(Src,AtomStart);
end else begin
RunStatement(Skip);
end;