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

Debugger: Fix getting min callstack depth in some cases.

Browse Source 
git-svn-id: trunk@43294 -
This commit is contained in:
martin 2013-10-20 18:33:56 +00:00
parent 4a14f0fd45
commit e52c2ff8d2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/debugger.pp
View File

@ -5388,8 +5388,8 @@ end;
function TCurrentCallStack.HasAtLeastCount(ARequiredMinCount: Integer): TNullableBool;
begin
if FCountValidity = ddsValid then begin
Result := inherited HasAtLeastCount(ARequiredMinCount);
exit;
Result := inherited HasAtLeastCount(ARequiredMinCount);
exit;
end;
if FAtLeastCountOld >= ARequiredMinCount then begin
@ -5410,6 +5410,9 @@ begin
FAtLeastCountValidity := ddsRequested;
FMonitor.RequestAtLeastCount(self, ARequiredMinCount);
if FCountValidity = ddsValid then
Result := inherited HasAtLeastCount(ARequiredMinCount)
else
if FAtLeastCountValidity = ddsValid then begin
if ARequiredMinCount <= FAtLeastCount then
Result := nbTrue