paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation with -Oodfa fixed

Browse Source
This commit is contained in:
florian 2022-01-04 16:12:17 +01:00
parent 2b7c28e41a
commit 3cf00af48d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optutils.pas
View File

@ -173,8 +173,8 @@ unit optutils;
statements }
TBreakContinueStack = object
top: PBreakContinueStackNode;
procedure Init; {$ifdef USEINLINE} inline; {$endif}
procedure Done; {$ifdef USEINLINE} inline; {$endif}
constructor Init;
destructor Done;
procedure Push(brk,cont : tnode);
procedure Pop;
end;
@ -183,13 +183,13 @@ unit optutils;
NullBreakContinueStackNode : TBreakContinueStackNode = (brk: nil; cont: nil; next: nil);
procedure TBreakContinueStack.Init;
constructor TBreakContinueStack.Init;
begin
top:=@NullBreakContinueStackNode;
end;
procedure TBreakContinueStack.Done;
destructor TBreakContinueStack.Done;
begin
while top<>@NullBreakContinueStackNode do
Pop;