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

DBG: Cleanup

Browse Source 
git-svn-id: trunk@28316 -
This commit is contained in:
martin 2010-11-18 12:22:02 +00:00
parent 2cc01eba26
commit c6a4b465a2
1 changed files with 178 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

332
debugger/gdbmidebugger.pp
View File

@ -339,7 +339,7 @@ type
); );
TGDBMIEvaluationState = (esInvalid, esRequested, esValid); TGDBMIEvaluationState = (esInvalid, esRequested, esValid);
{%region ***** TGDBMINameValueList and Parsers ***** } {%region ***** TGDBMINameValueList and Parsers ***** }
PGDBMINameValue = ^TGDBMINameValue; PGDBMINameValue = ^TGDBMINameValue;
TGDBMINameValue = record TGDBMINameValue = record
@ -436,9 +436,9 @@ type
property Item[Index: Integer]: PDisassemblerEntry read GetItem write SetItem; property Item[Index: Integer]: PDisassemblerEntry read GetItem write SetItem;
end; end;
{%endregion *^^^* TGDBMINameValueList and Parsers *^^^* } {%endregion *^^^* TGDBMINameValueList and Parsers *^^^* }
{%region ***** TGDBMIDebuggerCommands ***** } {%region ***** TGDBMIDebuggerCommands ***** }
{ TGDBMIDebuggerSimpleCommand } { TGDBMIDebuggerSimpleCommand }
@ -487,22 +487,9 @@ type
property Result: TGDBMIExecResult read FResult; property Result: TGDBMIExecResult read FResult;
end; end;
{ TGDBMIDebuggerCommandEvaluate } {%endregion *^^^* TGDBMIDebuggerCommands *^^^* }
TGDBMIDebuggerCommandEvaluate = class(TGDBMIDebuggerCommand) {%region ***** Locals ***** }
private
FExpression: String;
FTextValue: String;
FTypeInfo: TGDBType;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger;const AExpression: String);
function DebugText: String; override;
property Expression: String read FExpression;
property TextValue: String read FTextValue;
property TypeInfo: TGDBType read FTypeInfo;
end;
{ TGDBMIDebuggerCommandLocals } { TGDBMIDebuggerCommandLocals }
@ -518,138 +505,6 @@ type
property Vars: String read FVars; property Vars: String read FVars;
end; end;
{ TGDBMIDebuggerCommandStackFrames }
TGDBMINameValueListArray = array of TGDBMINameValueList;
TGDBMIDebuggerCommandStackFrames = class(TGDBMIDebuggerCommand)
private
FArgs: TGDBMINameValueListArray;
FFrames: TGDBMINameValueListArray;
FIndex: Integer;
FCount: Integer;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; AIndex, ACount: Integer);
destructor Destroy; override;
function DebugText: String; override;
property Index: Integer read FIndex write FIndex;
property Count: Integer read FCount write FCount;
property Args: TGDBMINameValueListArray read FArgs;
property Frames: TGDBMINameValueListArray read FFrames;
end;
{ TGDBMIDebuggerCommandStackDepth }
TGDBMIDebuggerCommandStackDepth = class(TGDBMIDebuggerCommand)
private
FDepth: Integer;
protected
function DoExecute: Boolean; override;
public
function DebugText: String; override;
property Depth: Integer read FDepth;
end;
{ TGDBMIDebuggerCommandRegisterNames }
TGDBMIDebuggerCommandRegisterNames = class(TGDBMIDebuggerCommand)
private
FNames: Array of String;
function GetNames(Index: Integer): string;
protected
function DoExecute: Boolean; override;
public
//function DebugText: String; override;
function Count: Integer;
property Names[Index: Integer]: string read GetNames;
end;
{ TGDBMIDebuggerCommandRegisterValues }
TGDBMIDebuggerCommandRegisterValues = class(TGDBMIDebuggerCommand)
private
FRegistersToUpdate: TGDBMICpuRegisters;
protected
function DoExecute: Boolean; override;
public
// updates the given array directly
constructor Create(AOwner: TGDBMIDebugger; RegistersToUpdate: TGDBMICpuRegisters);
function DebugText: String; override;
end;
{ TGDBMIDebuggerCommandLineSymbolInfo }
TGDBMIDebuggerCommandLineSymbolInfo = class(TGDBMIDebuggerCommand)
private
FResult: TGDBMIExecResult;
FSource: string;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; Source: string);
function DebugText: String; override;
property Result: TGDBMIExecResult read FResult;
property Source: string read FSource;
end;
{ TGDBMIDebuggerCommandDisassembe }
TGDBMIDisAssAddrRange = record
FirstAddr, LastAddr: TDBGPtr;
end;
TGDBMIDebuggerCommandDisassembe = class(TGDBMIDebuggerCommand)
private
FEndAddr: TDbgPtr;
FLinesAfter: Integer;
FLinesBefore: Integer;
FOnProgress: TNotifyEvent;
FStartAddr: TDbgPtr;
FKnownRanges: TDBGDisassemblerEntryMap;
FRangeIterator: TMapIterator;
FMemDumpsNeeded: array of TGDBMIDisAssAddrRange;
procedure DoProgress;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; AKnownRanges: TDBGDisassemblerEntryMap;
AStartAddr, AEndAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer);
destructor Destroy; override;
function DebugText: String; override;
property StartAddr: TDbgPtr read FStartAddr write FStartAddr;
property EndAddr: TDbgPtr read FEndAddr write FEndAddr;
property LinesBefore: Integer read FLinesBefore write FLinesBefore;
property LinesAfter: Integer read FLinesAfter write FLinesAfter;
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
end;
{%endregion *^^^* TGDBMIDebuggerCommands *^^^* }
{%region ***** Info/Data Providers ***** }
{ TGDBMIBreakPoint }
TGDBMIBreakPoint = class(TDBGBreakPoint)
private
FBreakID: Integer;
FParsedExpression: String;
procedure SetBreakPointCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
procedure SetBreakPoint;
procedure ReleaseBreakPoint;
procedure UpdateEnable;
procedure UpdateExpression;
protected
procedure DoEnableChange; override;
procedure DoExpressionChange; override;
procedure DoStateChange(const AOldState: TDBGState); override;
public
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
procedure SetLocation(const ASource: String; const ALine: Integer); override;
end;
{ TGDBMILocals } { TGDBMILocals }
TGDBMILocals = class(TDBGLocals) TGDBMILocals = class(TDBGLocals)
@ -675,6 +530,25 @@ type
destructor Destroy; override; destructor Destroy; override;
end; end;
{%endregion ^^^^^ Locals ^^^^^ }
{%region ***** LineSymbolInfo ***** }
{ TGDBMIDebuggerCommandLineSymbolInfo }
TGDBMIDebuggerCommandLineSymbolInfo = class(TGDBMIDebuggerCommand)
private
FResult: TGDBMIExecResult;
FSource: string;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; Source: string);
function DebugText: String; override;
property Result: TGDBMIExecResult read FResult;
property Source: string read FSource;
end;
{ TGDBMILineInfo } { TGDBMILineInfo }
TGDBMILineInfo = class(TDBGLineInfo) TGDBMILineInfo = class(TDBGLineInfo)
@ -703,6 +577,62 @@ type
procedure Request(const ASource: String); override; procedure Request(const ASource: String); override;
end; end;
{%endregion ^^^^^ LineSymbolInfo ^^^^^ }
{%region}
{ TGDBMIBreakPoint ***** BreakPoints ***** }
TGDBMIBreakPoint = class(TDBGBreakPoint)
private
FBreakID: Integer;
FParsedExpression: String;
procedure SetBreakPointCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
procedure SetBreakPoint;
procedure ReleaseBreakPoint;
procedure UpdateEnable;
procedure UpdateExpression;
protected
procedure DoEnableChange; override;
procedure DoExpressionChange; override;
procedure DoStateChange(const AOldState: TDBGState); override;
public
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
procedure SetLocation(const ASource: String; const ALine: Integer); override;
end;
{%endregion ^^^^^ BreakPoints ^^^^^ }
{%region ***** Register ***** }
{ TGDBMIDebuggerCommandRegisterNames }
TGDBMIDebuggerCommandRegisterNames = class(TGDBMIDebuggerCommand)
private
FNames: Array of String;
function GetNames(Index: Integer): string;
protected
function DoExecute: Boolean; override;
public
//function DebugText: String; override;
function Count: Integer;
property Names[Index: Integer]: string read GetNames;
end;
{ TGDBMIDebuggerCommandRegisterValues }
TGDBMIDebuggerCommandRegisterValues = class(TGDBMIDebuggerCommand)
private
FRegistersToUpdate: TGDBMICpuRegisters;
protected
function DoExecute: Boolean; override;
public
// updates the given array directly
constructor Create(AOwner: TGDBMIDebugger; RegistersToUpdate: TGDBMICpuRegisters);
function DebugText: String; override;
end;
{ TGDBMIRegisters } { TGDBMIRegisters }
TGDBMIRegisters = class(TDBGRegisters) TGDBMIRegisters = class(TDBGRegisters)
@ -734,6 +664,27 @@ type
procedure Changed; override; procedure Changed; override;
end; end;
{%endregion ^^^^^ Register ^^^^^ }
{%region ***** Watches ***** }
{ TGDBMIDebuggerCommandEvaluate }
TGDBMIDebuggerCommandEvaluate = class(TGDBMIDebuggerCommand)
private
FExpression: String;
FTextValue: String;
FTypeInfo: TGDBType;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger;const AExpression: String);
function DebugText: String; override;
property Expression: String read FExpression;
property TextValue: String read FTextValue;
property TypeInfo: TGDBType read FTypeInfo;
end;
{ TGDBMIWatch } { TGDBMIWatch }
TGDBMIWatch = class(TDBGWatch) TGDBMIWatch = class(TDBGWatch)
@ -772,6 +723,44 @@ type
public public
end; end;
{%endregion ^^^^^ Watches ^^^^^ }
{%region ***** Stack ***** }
{ TGDBMIDebuggerCommandStackFrames }
TGDBMINameValueListArray = array of TGDBMINameValueList;
TGDBMIDebuggerCommandStackFrames = class(TGDBMIDebuggerCommand)
private
FArgs: TGDBMINameValueListArray;
FFrames: TGDBMINameValueListArray;
FIndex: Integer;
FCount: Integer;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; AIndex, ACount: Integer);
destructor Destroy; override;
function DebugText: String; override;
property Index: Integer read FIndex write FIndex;
property Count: Integer read FCount write FCount;
property Args: TGDBMINameValueListArray read FArgs;
property Frames: TGDBMINameValueListArray read FFrames;
end;
{ TGDBMIDebuggerCommandStackDepth }
TGDBMIDebuggerCommandStackDepth = class(TGDBMIDebuggerCommand)
private
FDepth: Integer;
protected
function DoExecute: Boolean; override;
public
function DebugText: String; override;
property Depth: Integer read FDepth;
end;
{ TGDBMICallStack } { TGDBMICallStack }
TGDBMICallStack = class(TDBGCallStack) TGDBMICallStack = class(TDBGCallStack)
@ -796,7 +785,10 @@ type
public public
end; end;
{ TGDBMIDisassembler } {%endregion ^^^^^ Stack ^^^^^ }
{%region ***** Disassembler ***** }
const const
// Some values to calculate how many bytes to disassemble for a given amount of lines // Some values to calculate how many bytes to disassemble for a given amount of lines
// Those values are only guesses // Those values are only guesses
@ -804,6 +796,37 @@ const
DAssBytesPerCommandMax = 24; // Max possible len. Only used for up to 5 lines DAssBytesPerCommandMax = 24; // Max possible len. Only used for up to 5 lines
type type
{ TGDBMIDebuggerCommandDisassembe }
TGDBMIDisAssAddrRange = record
FirstAddr, LastAddr: TDBGPtr;
end;
TGDBMIDebuggerCommandDisassembe = class(TGDBMIDebuggerCommand)
private
FEndAddr: TDbgPtr;
FLinesAfter: Integer;
FLinesBefore: Integer;
FOnProgress: TNotifyEvent;
FStartAddr: TDbgPtr;
FKnownRanges: TDBGDisassemblerEntryMap;
FRangeIterator: TMapIterator;
FMemDumpsNeeded: array of TGDBMIDisAssAddrRange;
procedure DoProgress;
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger; AKnownRanges: TDBGDisassemblerEntryMap;
AStartAddr, AEndAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer);
destructor Destroy; override;
function DebugText: String; override;
property StartAddr: TDbgPtr read FStartAddr write FStartAddr;
property EndAddr: TDbgPtr read FEndAddr write FEndAddr;
property LinesBefore: Integer read FLinesBefore write FLinesBefore;
property LinesAfter: Integer read FLinesAfter write FLinesAfter;
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
end;
TGDBMIDisassembler = class(TDBGDisassembler) TGDBMIDisassembler = class(TDBGDisassembler)
private private
FDisassembleEvalCmdObj: TGDBMIDebuggerCommandDisassembe; FDisassembleEvalCmdObj: TGDBMIDebuggerCommandDisassembe;
@ -820,9 +843,10 @@ type
function PrepareRange(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): Boolean; override; function PrepareRange(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): Boolean; override;
end; end;
{%endregion *^^^* Info/Data Providers *^^^* } {%endregion ^^^^^ Disassembler ^^^^^ }
{%region ***** TGDBMIExpression ***** }
{%region ***** TGDBMIExpression ***** }
{ TGDBMIExpression } { TGDBMIExpression }
// TGDBMIExpression was an attempt to make expression evaluation on Objects possible for GDB <= 5.2 // TGDBMIExpression was an attempt to make expression evaluation on Objects possible for GDB <= 5.2
@ -944,7 +968,7 @@ type
function Evaluate(const ADebuggerCommand: TGDBMIDebuggerCommand; out AResult: String; out AResultInfo: TGDBType): Boolean; function Evaluate(const ADebuggerCommand: TGDBMIDebuggerCommand; out AResult: String; out AResultInfo: TGDBType): Boolean;
end; end;
{%endregion *^^^* TGDBMIExpression *^^^* } {%endregion *^^^* TGDBMIExpression *^^^* }
{ TGDBMIType } { TGDBMIType }