paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 18:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFpLldb: clean up

Browse Source 
git-svn-id: trunk@60898 -
This commit is contained in:
martin 2019-04-09 18:39:47 +00:00
parent 573956ab0d
commit 52e13f73cb
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
View File

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