paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fix wrong class for threads.

Browse Source 
git-svn-id: trunk@59693 -
This commit is contained in:
martin 2018-11-29 13:48:09 +00:00
parent 84ba359bbd
commit dbcc66dfa2
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
debugger/debugger.pp
View File

@ -1348,6 +1348,9 @@ type
FThread: TIdeThreadEntry; FThread: TIdeThreadEntry;
protected protected
function GetUnitInfoProvider: TDebuggerUnitInfoProvider; override; function GetUnitInfoProvider: TDebuggerUnitInfoProvider; override;
public
function CreateCopy: TCallStackEntry; override;
procedure Assign(AnOther: TCallStackEntry); override;
end; end;
{ TThreadEntry } { TThreadEntry }
@ -1846,6 +1849,20 @@ begin
Result := FThread.GetUnitInfoProvider; Result := FThread.GetUnitInfoProvider;
end; end;
function TIdeThreadFrameEntry.CreateCopy: TCallStackEntry;
begin
Result := TIdeThreadFrameEntry.Create;
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 } { TIDEBreakPointGroupList }
function TIDEBreakPointGroupList.GetItem(AIndex: Integer): TIDEBreakPointGroup; function TIDEBreakPointGroupList.GetItem(AIndex: Integer): TIDEBreakPointGroup;