paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 12:39:20 +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
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));