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

DBG: Cleanup (removed unused, left overs)

Browse Source 
git-svn-id: trunk@28302 -
This commit is contained in:
martin 2010-11-17 23:47:15 +00:00
parent e16d7a8322
commit 36f1fbe7c7
1 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
debugger/gdbmidebugger.pp
View File

@ -197,8 +197,6 @@ type
FRunQueueOnUnlock: Boolean;
FDebuggerFlags: TGDBMIDebuggerFlags;
FCurrentStackFrame: Integer;
FAsmCache: TTypedMap;
FAsmCacheIter: TTypedMapIterator;
FSourceNames: TStringList; // Objects[] -> TMap[Integer|Integer] -> TDbgPtr
FReleaseLock: Integer;
@ -315,26 +313,6 @@ type
implementation
type
TGDBMIAsmLine = record
Dump: String;
Statement: String;
FileName: String;
Line: Integer;
FuncName: String;
Offset: Integer;
Next: TDbgPtr;
end;
PGDBMIDisasm = ^TGDBMIDisasm;
TGDBMIDisasm = record
FileName: String;
Line: Integer;
Address: TDbgPtr;
Statement: String;
FuncName: String;
Offset: Integer;
end;
TPCharWithLen = record
Ptr: PChar;
Len: Integer;
@ -3618,8 +3596,6 @@ begin
FTargetPID := 0;
FTargetFlags := [];
FDebuggerFlags := [];
FAsmCache := TTypedMap.Create(itu8, TypeInfo(TGDBMIAsmLine));
FAsmCacheIter := TTypedMapIterator.Create(FAsmCache);
FSourceNames := TStringList.Create;
FSourceNames.Sorted := True;
FSourceNames.Duplicates := dupError;
@ -3680,8 +3656,6 @@ begin
inherited;
ClearCommandQueue;
FreeAndNil(FCommandQueue);
FreeAndNil(FAsmCacheIter);
FreeAndNil(FAsmCache);
ClearSourceInfo;
FreeAndNil(FSourceNames);
end;
@ -3736,7 +3710,6 @@ procedure TGDBMIDebugger.DoState(const OldState: TDBGState);
begin
if State in [dsStop, dsError]
then begin
FAsmCache.Clear;
ClearSourceInfo;
FPauseWaitState := pwsNone;
end;
@ -3988,19 +3961,6 @@ begin
until false;
end;
function DisasmSortCompare(AItem1, AItem2: Pointer): Integer;
begin
if PGDBMIDisasm(AItem1)^.Address < PGDBMIDisasm(AItem2)^.Address then
Result := -1
else
if PGDBMIDisasm(AItem1)^.Address > PGDBMIDisasm(AItem2)^.Address then
Result := 1
else
Result := 0;
end;
function TGDBMIDebugger.GDBDisassemble(AAddr: TDbgPtr; ABackward: Boolean;
out ANextAddr: TDbgPtr; out ADump, AStatement, AFile: String; out ALine: Integer): Boolean;
var