paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 11:48:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: refactor

Browse Source 
git-svn-id: trunk@44473 -
This commit is contained in:
martin 2014-03-19 18:16:23 +00:00
parent 26e420585f
commit e6966c2a2a
3 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -725,7 +725,7 @@ type
function CreateEntry: TDbgEntityValue; override;
public
procedure Add(const AName, AValue: String);
procedure SetDataValidity(AValidity: TDebuggerDataState); virtual; abstract;
procedure SetDataValidity(AValidity: TDebuggerDataState); virtual;
public
function Count: Integer;reintroduce; virtual;
property Entries[AnIndex: Integer]: TLocalsValue read GetEntry;
@ -2362,6 +2362,11 @@ begin
inherited Add(v);
end;
procedure TLocals.SetDataValidity(AValidity: TDebuggerDataState);
begin
//
end;
function TLocals.Count: Integer;
begin
Result := inherited Count;

16
debugger/test/Gdbmi/testbase.pas
View File

@ -220,8 +220,8 @@ type
//FSignals: TBaseSignals;
//FBreakPoints: TIDEBreakPoints;
//FBreakPointGroups: TIDEBreakPointGroups;
FLocals: TIdeLocalsMonitor;
FLineInfo: TIDELineInfo;
FLocals: TLocalsMonitor;
FLineInfo: TBaseLineInfo;
FWatches: TIdeWatchesMonitor;
FThreads: TThreadsMonitor;
FRegisters: TRegistersMonitor;
@ -295,8 +295,8 @@ type
property Exceptions: TBaseExceptions read FExceptions; // A list of exceptions we should ignore
property CallStack: TTestCallStackMonitor read FCallStack;
property Disassembler: TBaseDisassembler read FDisassembler;
property Locals: TIdeLocalsMonitor read FLocals;
property LineInfo: TIDELineInfo read FLineInfo;
property Locals: TLocalsMonitor read FLocals;
property LineInfo: TBaseLineInfo read FLineInfo;
property Registers: TRegistersMonitor read FRegisters;
//property Signals: TBaseSignals read FSignals; // A list of actions for signals we know of
property Watches: TIdeWatchesMonitor read FWatches;
@ -558,8 +558,8 @@ begin
FThreads := TThreadsMonitor.Create;
FExceptions := TBaseExceptions.Create(TBaseException);
//FSignals := TBaseSignals.Create(TBaseSignal);
FLocals := TIdeLocalsMonitor.Create;
FLineInfo := TIDELineInfo.Create;
FLocals := TLocalsMonitor.Create;
FLineInfo := TBaseLineInfo.Create;
FCallStack := TTestCallStackMonitor.Create;
FDisassembler := TBaseDisassembler.Create;
FRegisters := TRegistersMonitor.Create;
@ -572,7 +572,7 @@ begin
FWatches.Supplier := Result.Watches;
FThreads.Supplier := Result.Threads;
FLocals.Supplier := Result.Locals;
FLineInfo.Master := Result.LineInfo;
//FLineInfo.Master := Result.LineInfo;
FCallStack.Supplier := Result.CallStack;
//FDisassembler.Master := Result.Disassembler;
Result.Exceptions := FExceptions;
@ -595,7 +595,7 @@ begin
FWatches.Supplier := nil;
FThreads.Supplier := nil;
FLocals.Supplier := nil;
FLineInfo.Master := nil;
//FLineInfo.Master := nil;
FCallStack.Supplier := nil;
//FDisassembler.Master := nil;
//FExceptions.Master := nil;

10
debugger/test/Gdbmi/testdisass.pas
View File

@ -47,8 +47,8 @@ type
//FSignals: TBaseSignals;
//FBreakPoints: TIDEBreakPoints;
//FBreakPointGroups: TIDEBreakPointGroups;
FLocals: TIdeLocalsMonitor;
FLineInfo: TIDELineInfo;
FLocals: TLocalsMonitor;
FLineInfo: TBaseLineInfo;
FWatches: TIdeWatchesMonitor;
FThreads: TThreadsMonitor;
FRegisters: TRegistersMonitor;
@ -340,8 +340,8 @@ var
FThreads := TThreadsMonitor.Create;
FExceptions := TBaseExceptions.Create(TBaseException);
//FSignals := TBaseSignals.Create(TBaseSignal);
FLocals := TIdeLocalsMonitor.Create;
FLineInfo := TIDELineInfo.Create;
FLocals := TLocalsMonitor.Create;
FLineInfo := TBaseLineInfo.Create;
FCallStack := TTestCallStackMonitor.Create;
FRegisters := TRegistersMonitor.Create;
@ -349,7 +349,7 @@ var
FWatches.Supplier := Gdb.Watches;
FThreads.Supplier := Gdb.Threads;
FLocals.Supplier := Gdb.Locals;
FLineInfo.Master := Gdb.LineInfo;
//FLineInfo.Master := Gdb.LineInfo;
FCallStack.Supplier := Gdb.CallStack;
Gdb.Exceptions := FExceptions;
//FSignals.Master := Gdb.Signals;