mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-08 22:52:51 +02:00
23 lines
622 B
PHP
23 lines
622 B
PHP
{%MainUnit unit1.pas}
|
|
procedure Do1;
|
|
procedure BeginBlock(Typ: TFABBlockType);
|
|
var
|
|
ParentBlock: PBlock;
|
|
begin
|
|
if (Stack.Top>=0) then begin
|
|
ParentBlock:=@Stack.Stack[Stack.Top];
|
|
if (ParentBlock^.InnerStartPos=AtomStart)
|
|
and (Policies<>nil) then begin
|
|
Policies.AddIndent(ParentBlock^.Typ,Typ,ParentBlock^.InnerIdent);
|
|
|
|
end;
|
|
Stack.BeginBlock(Typ,AtomStart);
|
|
{$IFDEF ShowCodeBeautifierParser}
|
|
DebugLn([GetIndentStr(Stack.Top*2),'BeginBlock ',FABBlockTypeNames[Typ],' ',GetAtomString(@Src[AtomStart],NestedComments),' at ',PosToStr(p)]);
|
|
{$ENDIF}
|
|
end;
|
|
begin
|
|
|
|
end;
|
|
|