paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 17:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fix DbgThread.TopFrame after copy

Browse Source 
git-svn-id: trunk@64015 -
This commit is contained in:
martin 2020-10-15 18:37:34 +00:00
parent ad65618c2b
commit 8f0ae93c99
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -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;

9
debugger/debugger.pp
View File

@ -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;