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

FpDebug: Fix searching frame by BasePointer

Browse Source 
git-svn-id: trunk@63533 -
This commit is contained in:
martin 2020-07-08 22:38:56 +00:00
parent 497ad8d163
commit 69ee06144d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgclasses.pp
View File

@ -2732,7 +2732,7 @@ begin
RegFP := 5; RegFP := 5;
Result := AStartFrame; Result := AStartFrame;
prev_fp := high(prev_fp); prev_fp := low(prev_fp);
while Result <= AMaxFrameToSearch do begin while Result <= AMaxFrameToSearch do begin
PrepareCallStackEntryList(Result+1); PrepareCallStackEntryList(Result+1);
if CallStackEntryList.Count <= Result then if CallStackEntryList.Count <= Result then
@ -2750,7 +2750,7 @@ begin
if fp = AFrameBasePointer then if fp = AFrameBasePointer then
exit; exit;
if (fp > prev_fp) or (fp < AStartFrame) then if (fp < prev_fp) or (fp > AFrameBasePointer) then
exit(-1); exit(-1);
prev_fp := fp; prev_fp := fp;