From e52c2ff8d2d51146dd51b41056a59068ebc84d3e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 20 Oct 2013 18:33:56 +0000
Subject: [PATCH] Debugger: Fix getting min callstack depth in some cases.

git-svn-id: trunk@43294 -
---
 debugger/debugger.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index 2907c62b98..7500c288e7 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -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