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

debugger: made checking partial stack trace more robust, as suggested by Yuri

Browse Source 
git-svn-id: trunk@11295 -
This commit is contained in:
vincents 2007-06-07 14:47:55 +00:00
parent b3246f94ce
commit 2a4f00b5ec
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/gdbmidebugger.pp
View File

@ -2640,18 +2640,21 @@ begin
if cnt = -1 then
begin
{ In case of error some stackframes still can be accessed.
Trying to find out how many... }
i:=0;
Trying to find out how many...
We try maximum 40 frames, because sometimes a corrupt stack and a bug in
gdb may cooperate, so that -stack-info-depth X returns always X }
repeat
Inc(i);
inc(i);
TGDBMIDebugger(Debugger).ExecuteCommand('-stack-info-depth ' + IntToStr(i),
[cfIgnoreError], R);
List := CreateMIValueList(R);
cnt := StrToIntDef(List.Values['depth'], -1);
FreeAndNil(List);
if cnt = -1 then
if (cnt = -1) then begin
// no valid stack-info-depth found, so the previous was the last valid one
cnt:=i - 1;
until cnt < i;
end;
until (cnt<i) or (i=40);
end;
SetCount(cnt);
end;