From 32871c5786b373b6ee72bd6d69fc910270e4b8a4 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 21 Aug 2013 23:06:04 +0000
Subject: [PATCH] Debugger: update thread id

git-svn-id: trunk@42444 -
---
 debugger/debugger.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index 9be76c240e..29fa6997d3 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -6077,8 +6077,12 @@ end;
 procedure TThreads.Remove(AThread: TThreadEntry);
 begin
   FList.Remove(AThread);
-  if FCurrentThreadId = AThread.ThreadId then
-    FCurrentThreadId := 0;
+  if FCurrentThreadId = AThread.ThreadId then begin
+    if FList.Count > 0 then
+      FCurrentThreadId := Entries[0].ThreadId
+    else
+      FCurrentThreadId := 0;
+  end;
   AThread.Free;
 end;