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

codetools: indenter: fixed using right block when on block end

Browse Source 
git-svn-id: trunk@22922 -
This commit is contained in:
mattias 2009-12-02 13:38:23 +00:00
parent 4b683366c7
commit 7dee2172f1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/codebeautifier.pas
View File

@ -82,6 +82,7 @@ interface
{ $DEFINE ShowCodeBeautifier}
{ $DEFINE ShowCodeBeautifierParser}
{ $DEFINE ShowCodeBeautifierLearn}
{ $DEFINE VerboseIndenter}
{$IFDEF ShowCodeBeautifierParser}
{$DEFINE ShowCodeBeautifierLearn}
@ -1618,17 +1619,18 @@ begin
exit(Indent.IndentValid);
end;
Block:=Stack.Stack[StackIndex];
if (StackIndex<Stack.Top) then begin
// block(s) closed by next token
// use indent of block start
Block:=Stack.Stack[StackIndex+1];
{$IFDEF VerboseIndenter}
DebugLn(['TFullyAutomaticBeautifier.GetIndent next token close block: ',FABBlockTypeNames[Stack.TopType]]);
DebugLn(['TFullyAutomaticBeautifier.GetIndent next token close block: ',FABBlockTypeNames[Stack.TopType],' Block=',dbgstr(copy(Source,Block.StartPos,20))]);
{$ENDIF}
Indent.Indent:=GetLineIndentWithTabs(Source,Block.StartPos,DefaultTabWidth);
Indent.IndentValid:=true;
exit(true);
end;
Block:=Stack.Stack[StackIndex];
// search last non empty line start
PrevLineAtomEndPos:=CleanPos;
@ -1679,6 +1681,9 @@ begin
if CheckPolicies(Policies,Result) then exit;
end;
finally
{$IFDEF VerboseIndenter}
DebugLn(['TFullyAutomaticBeautifier.GetIndent Valid=',Indent.IndentValid,' Indent=',Indent.Indent]);
{$ENDIF}
Stack.Free;
if Policies<>nil then
FreeAndNil(Policies.Code);