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

Debugger: increase safety net for max stack frames

Browse Source
This commit is contained in:
Martin 2022-09-13 18:46:27 +02:00
parent c44f55ada2
commit ffaa538517
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

@ -3030,7 +3030,7 @@ end;
procedure TDbgThread.PrepareCallStackEntryList(AFrameRequired: Integer); procedure TDbgThread.PrepareCallStackEntryList(AFrameRequired: Integer);
const const
MAX_FRAMES = 50000; // safety net MAX_FRAMES = 150000; // safety net
var var
Address, FrameBase, LastFrameBase, Dummy: QWord; Address, FrameBase, LastFrameBase, Dummy: QWord;
Size, CountNeeded, IP, BP, CodeReadErrCnt, SP, i: integer; Size, CountNeeded, IP, BP, CodeReadErrCnt, SP, i: integer;