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

DBG: Cleanup (removed unused, left overs)

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

35
debugger/gdbmidebugger.pp
View File

@ -318,12 +318,6 @@ type
Len: Integer;
end;
PGDBMINameValue = ^TGDBMINameValue;
TGDBMINameValue = record
Name: TPCharWithLen;
Value: TPCharWithLen;
end;
TGDBMICpuRegister = record
Name: String;
Value: String;
@ -345,6 +339,14 @@ type
);
TGDBMIEvaluationState = (esInvalid, esRequested, esValid);
{%region ***** TGDBMINameValueList and Parsers ***** }
PGDBMINameValue = ^TGDBMINameValue;
TGDBMINameValue = record
Name: TPCharWithLen;
Value: TPCharWithLen;
end;
{ TGDBMINameValueList }
TGDBMINameValueList = class(TObject)
@ -434,6 +436,10 @@ type
property Item[Index: Integer]: PDisassemblerEntry read GetItem write SetItem;
end;
{%endregion *^^^* TGDBMINameValueList and Parsers *^^^* }
{%region ***** TGDBMIDebuggerCommands ***** }
{ TGDBMIDebuggerSimpleCommand }
// not to be used for anything that runs/steps the app
@ -619,6 +625,10 @@ type
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
end;
{%endregion *^^^* TGDBMIDebuggerCommands *^^^* }
{%region ***** Info/Data Providers ***** }
{ TGDBMIBreakPoint }
TGDBMIBreakPoint = class(TDBGBreakPoint)
@ -810,6 +820,10 @@ type
function PrepareRange(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): Boolean; override;
end;
{%endregion *^^^* Info/Data Providers *^^^* }
{%region ***** TGDBMIExpression ***** }
{ TGDBMIExpression }
// TGDBMIExpression was an attempt to make expression evaluation on Objects possible for GDB <= 5.2
// It is not completed and buggy. Since 5.3 expression evaluation is OK, so maybe in future the
@ -930,6 +944,8 @@ type
function Evaluate(const ADebuggerCommand: TGDBMIDebuggerCommand; out AResult: String; out AResultInfo: TGDBType): Boolean;
end;
{%endregion *^^^* TGDBMIExpression *^^^* }
{ TGDBMIType }
TGDBMIType = class(TGDBType)
@ -952,13 +968,6 @@ type
function ParseNext(out ADecomposable: Boolean; out APayload: String; out ACharStopper: Char): Boolean;
end;
PGDBMICmdInfo = ^TGDBMICmdInfo;
TGDBMICmdInfo = record
Flags: TGDBMICmdFlags;
CallBack: TGDBMICallback;
Tag: PtrInt;
end;
TGDBMIExceptionInfo = record
ObjAddr: String;
Name: String;