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

FpDebug: Improve Stack after calling TProc(nil) / Call to code not in apps memory

Browse Source
This commit is contained in:
Martin 2022-02-09 19:30:40 +01:00
parent dce19de110
commit 6993390bab
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

@ -2977,7 +2977,7 @@ begin
if Process.Disassembler.LastErrorWasMemReadErr then begin
inc(CodeReadErrCnt);
if CodeReadErrCnt > 5 then break; // If the code cannot be read the stack pointer is wrong.
if NextIdx = 0 then
if NextIdx <= 1 then
OutSideFrame := True; // Maybe after "TProc(nil)();" call, then no frame could have been set up
end;
end;