paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +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; function TCurrentCallStack.HasAtLeastCount(ARequiredMinCount: Integer): TNullableBool;
begin begin
if FCountValidity = ddsValid then begin if FCountValidity = ddsValid then begin
Result := inherited HasAtLeastCount(ARequiredMinCount); Result := inherited HasAtLeastCount(ARequiredMinCount);
exit; exit;
end; end;
if FAtLeastCountOld >= ARequiredMinCount then begin if FAtLeastCountOld >= ARequiredMinCount then begin
@ -5410,6 +5410,9 @@ begin
FAtLeastCountValidity := ddsRequested; FAtLeastCountValidity := ddsRequested;
FMonitor.RequestAtLeastCount(self, ARequiredMinCount); FMonitor.RequestAtLeastCount(self, ARequiredMinCount);
if FCountValidity = ddsValid then
Result := inherited HasAtLeastCount(ARequiredMinCount)
else
if FAtLeastCountValidity = ddsValid then begin if FAtLeastCountValidity = ddsValid then begin
if ARequiredMinCount <= FAtLeastCount then if ARequiredMinCount <= FAtLeastCount then
Result := nbTrue Result := nbTrue