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

FpDebug: fix range check error in stack

Browse Source 
(cherry picked from commit 126dd815cd)
This commit is contained in:
Martin 2022-09-09 22:54:06 +02:00
parent 9f70423e35
commit 1940610041
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1157,7 +1157,7 @@ end;
function TDbgCallstackEntry.GetProcSymbol: TFpSymbol; function TDbgCallstackEntry.GetProcSymbol: TFpSymbol;
begin begin
if not FIsSymbolResolved then begin if not FIsSymbolResolved then begin
if FIndex > 0 then if (FIndex > 0) and (FAnAddress <> 0) then
FSymbol := FThread.Process.FindProcSymbol(FAnAddress - 1) // -1 => inside the call instruction FSymbol := FThread.Process.FindProcSymbol(FAnAddress - 1) // -1 => inside the call instruction
else else
FSymbol := FThread.Process.FindProcSymbol(FAnAddress); FSymbol := FThread.Process.FindProcSymbol(FAnAddress);