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

Debugger: fix testcase for copying WatchValues in assign.

Browse Source
This commit is contained in:
Martin 2022-06-19 12:15:46 +02:00
parent 188d3cdd8a
commit 9d2d89d0bb
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggers/lazdebugtestbase/ttestdebuggerclasses.pas
View File

@ -101,14 +101,13 @@ type
const AThreadId: Integer; const AThreadId: Integer;
const AStackFrame: Integer const AStackFrame: Integer
); );
constructor Create(AOwnerWatch: TWatch); constructor Create(AOwnerWatch: TWatch); override;
end; end;
{ TTestWatchValueList } { TTestWatchValueList }
TTestWatchValueList = class(TWatchValueList) TTestWatchValueList = class(TWatchValueList)
protected protected
function CopyEntry(AnEntry: TWatchValue): TWatchValue; override;
function CreateEntry(const {%H-}AThreadId: Integer; const {%H-}AStackFrame: Integer): TWatchValue; override; function CreateEntry(const {%H-}AThreadId: Integer; const {%H-}AStackFrame: Integer): TWatchValue; override;
end; end;
@ -517,12 +516,6 @@ end;
{ TTestWatchValueList } { TTestWatchValueList }
function TTestWatchValueList.CopyEntry(AnEntry: TWatchValue): TWatchValue;
begin
Result := TTestWatchValue.Create(Watch);
Result.Assign(AnEntry);
end;
function TTestWatchValueList.CreateEntry(const AThreadId: Integer; function TTestWatchValueList.CreateEntry(const AThreadId: Integer;
const AStackFrame: Integer): TWatchValue; const AStackFrame: Integer): TWatchValue;
begin begin