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

LazDebuggerFp (pure): start watches framework

Browse Source 
git-svn-id: trunk@44616 -
This commit is contained in:
martin 2014-04-05 23:35:41 +00:00
parent f176ceeda1
commit 2ced428da5
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -41,6 +41,7 @@ type
procedure FDbgControllerProcessExitEvent(AExitCode: DWord);
procedure FDbgControllerExceptionEvent(var continue: boolean);
protected
function CreateWatches: TWatchesSupplier; override;
function RequestCommand(const ACommand: TDBGCommand;
const AParams: array of const): Boolean; override;
function ChangeFileName: Boolean; override;
@ -57,6 +58,17 @@ type
function GetSupportedCommands: TDBGCommands; override;
end;
{ TFPWatches }
TFPWatches = class(TWatchesSupplier)
private
protected
function FpDebugger: TFpDebugDebugger;
//procedure DoStateChange(const AOldState: TDBGState); override;
procedure InternalRequestData(AWatchValue: TWatchValue); override;
public
end;
procedure Register;
implementation
@ -66,6 +78,18 @@ begin
RegisterDebugger(TFpDebugDebugger);
end;
{ TFPWatches }
function TFPWatches.FpDebugger: TFpDebugDebugger;
begin
Result := TFpDebugDebugger(Debugger);
end;
procedure TFPWatches.InternalRequestData(AWatchValue: TWatchValue);
begin
AWatchValue.Validity := ddsInvalid;
end;
{ TFpDebugThread }
procedure TFpDebugThread.DoDebugLoopFinishedASync(Data: PtrInt);
@ -109,6 +133,11 @@ begin
end;
end;
function TFpDebugDebugger.CreateWatches: TWatchesSupplier;
begin
Result := TFPWatches.Create(Self);
end;
procedure TFpDebugDebugger.FDbgControllerHitBreakpointEvent(var continue: boolean);
begin
BreakPoints[0].Hit(continue);