From 319a201329c2227c06e4fb5c0f9f1c231f8722ef Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 7 Sep 2013 15:02:23 +0000
Subject: [PATCH] Debugger: callstack, fix goto source, if viewing bottom of
 large stack (viewing from startindex > 1)

git-svn-id: trunk@42664 -
---
 debugger/callstackdlg.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp
index a5074cfcfb..196101d9bf 100644
--- a/debugger/callstackdlg.pp
+++ b/debugger/callstackdlg.pp
@@ -210,7 +210,7 @@ end;
 procedure TCallStackDlg.CallStackChanged(Sender: TObject);
 begin
   DebugLn(DBG_DATA_MONITORS, ['DebugDataWindow: TCallStackDlg.CallStackChanged from ',  DbgSName(Sender), ' Upd:', IsUpdating]);
-  if not ToolButtonPower.Down then exit;
+  if (not ToolButtonPower.Down) or FInUpdateView then exit;
   if FViewStart = 0
   then UpdateView
   else SetViewStart(0);
@@ -350,8 +350,8 @@ begin
     FInUpdateView := True;
     CStack.PrepareRange(First, Count);
     // TODO: must make CStack ref-counted
-    if CStack <> GetSelectedCallstack then exit; // Something changed, maybe debugger stopped
     FInUpdateView := False;
+    if CStack <> GetSelectedCallstack then exit; // Something changed, maybe debugger stopped
     for n := 0 to Count - 1 do
     begin
       Item := lvCallStack.Items[n];