diff --git a/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas b/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
index 4a4a9ec5a6..0a95e82d1d 100644
--- a/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
@@ -102,7 +102,6 @@ type
   public
     procedure Execute; override;
     constructor Create(AFileName: String; ADebugger: TFpLldbDebugger);
-    destructor Destroy; override;
     procedure FreeDwarf;
 
     property ImageLoaderList: TDbgImageLoaderList read FImageLoaderList;
@@ -340,13 +339,6 @@ begin
   inherited Create(False);
 end;
 
-destructor TDwarfLoaderThread.Destroy;
-begin
-  if FreeOnTerminate then
-    FreeDwarf;
-  inherited Destroy;
-end;
-
 procedure TDwarfLoaderThread.FreeDwarf;
 begin
   FreeAndNil(FDwarfInfo);
@@ -1037,8 +1029,6 @@ end;
 
 procedure TFpLldbDebuggerCommandDisassemble.DoExecute;
 var
-  memLoc: TFpDbgMemLocation;
-  ALinesAfter: Integer;
   DInstr: TLldbInstructionDisassem;
   Sym: TFpDbgSymbol;
   StartRange, EndRange: TDBGPtr;
@@ -1266,7 +1256,6 @@ end;
 
 function TFpLldbDebugger.GetLocationForContext(AThreadId, AStackFrame: Integer): TDBGPtr;
 var
-  t: TThreadEntry;
   s: TCallStackBase;
   f: TCallStackEntry;
   r: TRegisters;
@@ -1387,12 +1376,6 @@ begin
   Result.AddReference;
 end;
 
-type
-  TLldbDwarfTypeIdentifier = class(TFpDwarfSymbolType)
-  public
-    property InformationEntry;
-  end;
-
 procedure TFpLldbDebugger.DoWatchFreed(Sender: TObject);
 begin
   FWatchEvalList.Remove(pointer(Sender));