paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Fixed line number for exceptions.

Browse Source
This commit is contained in:
Martin 2023-10-08 13:32:37 +02:00
parent 18eae18d53
commit bacefb51ae
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3634,12 +3634,16 @@ var
ExceptionClass: string;
ExceptionMessage: string;
ExceptItem: TBaseException;
Offs: Integer;
begin
Offs := 0;
if not FDbgController.DefaultContext.ReadUnsignedInt(FDbgController.CurrentProcess.CallParamDefaultLocation(1),
SizeVal(SizeOf(ExceptIP)), ExceptIP)
then
then begin
ExceptIP := 0;
AnExceptionLocation:=GetLocationRec(ExceptIP, -1);
Offs := -1;
end;
AnExceptionLocation:=GetLocationRec(ExceptIP, Offs);
if not FDbgController.DefaultContext.ReadUnsignedInt(FDbgController.CurrentProcess.CallParamDefaultLocation(0),
SizeVal(SizeOf(AnExceptionObjectLocation)), AnExceptionObjectLocation)