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

codetools: auto indenter: fixed parsing in bbtStatement

Browse Source 
git-svn-id: trunk@22868 -
This commit is contained in:
mattias 2009-11-30 09:16:11 +00:00
parent 6d42a4b2d0
commit 45f8f39a9e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/codebeautifier.pas
View File

@ -161,7 +161,7 @@ const
bbtTry,bbtFinally,bbtExcept, bbtTry,bbtFinally,bbtExcept,
bbtIfThen,bbtIfElse,bbtIfBegin]; bbtIfThen,bbtIfElse,bbtIfBegin];
bbtAllStatements = bbtAllStatementParents+[ bbtAllStatements = bbtAllStatementParents+[
bbtStatementRoundBracket,bbtStatementEdgedBracket]; bbtStatement,bbtStatementRoundBracket,bbtStatementEdgedBracket];
bbtAllBrackets = [bbtTypeRoundBracket,bbtTypeEdgedBracket, bbtAllBrackets = [bbtTypeRoundBracket,bbtTypeEdgedBracket,
bbtStatementRoundBracket,bbtStatementEdgedBracket]; bbtStatementRoundBracket,bbtStatementEdgedBracket];
const const
@ -1097,7 +1097,8 @@ begin
BeginBlock(bbtDefinition); BeginBlock(bbtDefinition);
end; end;
if (Stack.TopType in bbtAllStatementParents) if (Stack.TopType in bbtAllStatementParents)
and (not AtomStartedBlock) and (not AtomEndedBlock) then begin and (not AtomStartedBlock) and (not AtomEndedBlock)
and (r^<>';') then begin
// new statement // new statement
BeginBlock(bbtStatement); BeginBlock(bbtStatement);
end; end;