paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 18:51:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improved Debugger Exception Dialog for platforms different than 32 bits (with permission if MW)

Browse Source 
git-svn-id: trunk@9740 -
This commit is contained in:
andrew 2006-08-22 22:21:45 +00:00
parent afeece10c1
commit 3483437b53
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/debugger.pp
View File

@ -963,7 +963,6 @@ type
procedure DebuggerEnvironmentChanged(Sender: TObject); procedure DebuggerEnvironmentChanged(Sender: TObject);
procedure EnvironmentChanged(Sender: TObject); procedure EnvironmentChanged(Sender: TObject);
function GetState: TDBGState; function GetState: TDBGState;
function GetTargetWidth: Byte;
function ReqCmd(const ACommand: TDBGCommand; function ReqCmd(const ACommand: TDBGCommand;
const AParams: array of const): Boolean; const AParams: array of const): Boolean;
procedure SetDebuggerEnvironment (const AValue: TStrings ); procedure SetDebuggerEnvironment (const AValue: TStrings );
@ -984,6 +983,7 @@ type
function ChangeFileName: Boolean; virtual; function ChangeFileName: Boolean; virtual;
function GetCommands: TDBGCommands; function GetCommands: TDBGCommands;
function GetSupportedCommands: TDBGCommands; virtual; function GetSupportedCommands: TDBGCommands; virtual;
function GetTargetWidth: Byte; virtual;
function RequestCommand(const ACommand: TDBGCommand; function RequestCommand(const ACommand: TDBGCommand;
const AParams: array of const): Boolean; const AParams: array of const): Boolean;
virtual; abstract; // True if succesful virtual; abstract; // True if succesful
@ -1406,7 +1406,7 @@ end;
function TDebugger.GetTargetWidth: Byte; function TDebugger.GetTargetWidth: Byte;
begin begin
Result := 32; Result := SizeOf(PtrInt)*8;
end; end;
procedure TDebugger.Init; procedure TDebugger.Init;

6
debugger/gdbmidebugger.pp
View File

@ -169,6 +169,7 @@ type
function CreateCallStack: TDBGCallStack; override; function CreateCallStack: TDBGCallStack; override;
function CreateWatches: TDBGWatches; override; function CreateWatches: TDBGWatches; override;
function GetSupportedCommands: TDBGCommands; override; function GetSupportedCommands: TDBGCommands; override;
function GetTargetWidth: Byte; override;
procedure InterruptTarget; virtual; procedure InterruptTarget; virtual;
{$IFdef MSWindows} {$IFdef MSWindows}
procedure InterruptTargetCallback(const AResult: TGDBMIExecResult; const ATag: Integer); virtual; procedure InterruptTargetCallback(const AResult: TGDBMIExecResult; const ATag: Integer); virtual;
@ -1260,6 +1261,11 @@ begin
dcBreak, dcWatch, dcLocal, dcEvaluate, dcModify, dcEnvironment] dcBreak, dcWatch, dcLocal, dcEvaluate, dcModify, dcEnvironment]
end; end;
function TGDBMIDebugger.GetTargetWidth: Byte;
begin
Result := FTargetPtrSize*8;
end;
procedure TGDBMIDebugger.Init; procedure TGDBMIDebugger.Init;
procedure ParseGDBVersion; procedure ParseGDBVersion;
var var