paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 13:00:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: fix getting exception class/msg for 64bit targets

Browse Source 
git-svn-id: trunk@59742 -
This commit is contained in:
martin 2018-12-06 20:20:23 +00:00
parent a33608de2e
commit 801ce13eb6
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1647,19 +1647,27 @@ var
AnExceptionObjectLocation: TDBGPtr;
ExceptionClass: string;
ExceptionMessage: string;
RegDxDwarfIndex: byte;
RegDxDwarfIndex, RegFirstArg: Cardinal;
ExceptItem: TBaseException;
begin
// Using regvar:
// In all their wisdom, people decided to give the (r)dx register dwarf index
// 1 on for x86_64 and index 2 for i386.
if FDbgController.CurrentProcess.Mode=dm32 then
RegDxDwarfIndex:=2
else
if FDbgController.CurrentProcess.Mode=dm32 then begin
RegDxDwarfIndex:=2;
RegFirstArg := 0; // AX
end else begin
RegDxDwarfIndex:=1;
{$IFDEF windows}
// Must be Win64
RegFirstArg := 2; // RCX
{$ELSE}
RegFirstArg := 5; // RDI
{$ENDIF}
end;
AnExceptionLocation:=GetLocationRec(FDbgController.CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(RegDxDwarfIndex).NumValue);
AnExceptionObjectLocation:=FDbgController.CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(0).NumValue;
AnExceptionObjectLocation:=FDbgController.CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(RegFirstArg).NumValue;
ExceptionClass := '';
ExceptionMessage := '';
if AnExceptionObjectLocation <> 0 then begin