diff --git a/compiler/optutils.pas b/compiler/optutils.pas
index 2ec597c534..30ff5875c9 100644
--- a/compiler/optutils.pas
+++ b/compiler/optutils.pas
@@ -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;