From 8f0ae93c99017b0e1ebb85192b5a0f596720e2ca Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 15 Oct 2020 18:37:34 +0000
Subject: [PATCH] Debugger: Fix DbgThread.TopFrame after copy

git-svn-id: trunk@64015 -
---
 components/debuggerintf/dbgintfdebuggerbase.pp | 3 ++-
 debugger/debugger.pp                           | 9 ---------
 2 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/components/debuggerintf/dbgintfdebuggerbase.pp b/components/debuggerintf/dbgintfdebuggerbase.pp
index 2dd5779313..cdc7cecaee 100644
--- a/components/debuggerintf/dbgintfdebuggerbase.pp
+++ b/components/debuggerintf/dbgintfdebuggerbase.pp
@@ -2515,7 +2515,8 @@ end;
 procedure TThreadEntry.Assign(AnOther: TThreadEntry);
 begin
   FTopFrame.Free;
-  FTopFrame    := AnOther.TopFrame.CreateCopy;
+  FTopFrame    := CreateStackEntry;  //   .CreateCopy;
+  FTopFrame.Assign(AnOther.TopFrame);
   FThreadId    := AnOther.FThreadId;
   FThreadName  := AnOther.FThreadName;
   FThreadState := AnOther.FThreadState;
diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index e9496c8df8..b18dff8a42 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -1352,7 +1352,6 @@ type
     function GetUnitInfoProvider: TDebuggerUnitInfoProvider; override;
   public
     function CreateCopy: TCallStackEntry; override;
-    procedure Assign(AnOther: TCallStackEntry); override;
   end;
 
   { TThreadEntry }
@@ -1859,14 +1858,6 @@ begin
   Result.Assign(Self);
 end;
 
-procedure TIdeThreadFrameEntry.Assign(AnOther: TCallStackEntry);
-begin
-  inherited Assign(AnOther);
-  if AnOther is TIdeThreadFrameEntry then begin
-    FThread := TIdeThreadFrameEntry(AnOther).FThread;
-  end;
-end;
-
 { TIDEBreakPointGroupList }
 
 function TIDEBreakPointGroupList.GetItem(AIndex: Integer): TIDEBreakPointGroup;