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

FpDebug: fix overflow in stack eval

Browse Source 
(cherry picked from commit 315bb059d8)
This commit is contained in:
Martin 2022-05-09 23:48:30 +02:00
parent 261cce6274
commit 4ad24ee837
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

@ -2877,9 +2877,9 @@ begin
if not OutSideFrame then begin if not OutSideFrame then begin
{$PUSH}{$R-}{$Q-} {$PUSH}{$R-}{$Q-}
StackPtr := FrameBase + 2 * Size; // After popping return-addr from "FrameBase + Size" StackPtr := FrameBase + 2 * Size; // After popping return-addr from "FrameBase + Size"
{$POP}
if not Process.ReadData(FrameBase + Size, Size, Address) or (Address = 0) then Break; if not Process.ReadData(FrameBase + Size, Size, Address) or (Address = 0) then Break;
if not Process.ReadData(FrameBase, Size, FrameBase) then Break; if not Process.ReadData(FrameBase, Size, FrameBase) then Break;
{$POP}
end; end;
AnEntry := TDbgCallstackEntry.create(Self, NextIdx, FrameBase, Address); AnEntry := TDbgCallstackEntry.create(Self, NextIdx, FrameBase, Address);
AnEntry.RegisterValueList.DbgRegisterAutoCreate[nIP].SetValue(Address, IntToStr(Address),Size, IP); AnEntry.RegisterValueList.DbgRegisterAutoCreate[nIP].SetValue(Address, IntToStr(Address),Size, IP);