paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02: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 EnvironmentChanged(Sender: TObject);
function GetState: TDBGState;
function GetTargetWidth: Byte;
function ReqCmd(const ACommand: TDBGCommand;
const AParams: array of const): Boolean;
procedure SetDebuggerEnvironment (const AValue: TStrings );
@ -984,6 +983,7 @@ type
function ChangeFileName: Boolean; virtual;
function GetCommands: TDBGCommands;
function GetSupportedCommands: TDBGCommands; virtual;
function GetTargetWidth: Byte; virtual;
function RequestCommand(const ACommand: TDBGCommand;
const AParams: array of const): Boolean;
virtual; abstract; // True if succesful
@ -1406,7 +1406,7 @@ end;
function TDebugger.GetTargetWidth: Byte;
begin
Result := 32;
Result := SizeOf(PtrInt)*8;
end;
procedure TDebugger.Init;

6
debugger/gdbmidebugger.pp
View File

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