TGDBMIDebuggerCommand

type TGDBMIDebuggerCommand = class(TRefCountedObject)

protected

  FTheDebugger: TGDBMIDebuggerBase;

  FContext: TGDBMICommandContext;

  function ContextThreadId;

  function ContextStackFrame;

  procedure CopyGlobalContextToLocal;

  procedure SetDebuggerState();

  procedure SetDebuggerErrorState();

  function ErrorStateMessage; virtual;

  function ErrorStateInfo; virtual;

  property DebuggerState: TDBGState; [r]

  property DebuggerProperties: TGDBMIDebuggerPropertiesBase; [r]

  property TargetInfo: PGDBMITargetInfo; [r]

  procedure SetCommandState();

  procedure DoStateChanged(); virtual;

  procedure DoLockQueueExecute; virtual;

  procedure DoUnLockQueueExecute; virtual;

  procedure DoLockQueueExecuteForInstr; virtual;

  procedure DoUnLockQueueExecuteForInstr; virtual;

  function DoExecute; virtual; abstract;

  procedure DoOnExecuted;

  procedure DoCancel; virtual;

  procedure DoOnCanceled;

  property SeenStates: TGDBMIDebuggerCommandStates; [r]

  property QueueRunLevel: Integer; [rw]

  function ExecuteCommand();

  function ExecuteUserCommands();

  procedure DoTimeoutFeedback;

  function ProcessGDBResultStruct();

  function ProcessGDBResultText();

  function GetStackDepth();

  function FindStackFrame();

  function GetFrame();

  function GetText();

  function GetChar(); overload;

  function GetFloat();

  function GetWideText();

  function GetGDBTypeInfo();

  function GetClassName();

  function GetInstanceClassName();

  function GetData();

  function GetWordData(); overload;

  function GetDWordData(); overload;

  function GetStrValue();

  function GetIntValue();

  function GetPtrValue();

  function CheckHasType();

  function PointerTypeCast;

  function FrameToLocation();

  procedure ProcessFrame();

  procedure DoDbgEvent();

  property LastExecResult: TGDBMIExecResult; [r]

  property DefaultTimeOut: Integer; [rw]

  property ProcessResultTimedOut: Boolean; [r]

  property LastExecwasTimeOut: Boolean; [r]

public

  constructor Create();

  destructor Destroy; override;

  procedure DoQueued;

  procedure DoFinished;

  function Execute;

  procedure Cancel;

  function KillNow; virtual;

  function DebugText; virtual;

  property State: TGDBMIDebuggerCommandState; [r]

  property OnExecuted: TNotifyEvent; [rw]

  property OnCancel: TNotifyEvent; [rw]

  property OnDestroy: TNotifyEvent; [rw]

  property Priority: Integer; [rw]

  property Properties: TGDBMIDebuggerCommandProperts; [rw]

end;

TGDBMIDebuggerCommand

TObject