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

FpDebug: Fix default value / fix test

Browse Source
This commit is contained in:
Martin 2021-11-07 15:32:43 +01:00
parent 1f8a8ff932
commit 32aaa9b127
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbgwinclasses.pas
View File

@ -185,8 +185,7 @@ type
function CreateWatchPointData: TFpWatchPointData; override;
public
constructor Create(const AFileName: string; AnOsClasses: TOSDbgClasses;
AMemManager: TFpDbgMemManager; AProcessConfig: TDbgProcessConfig);
override;
AMemManager: TFpDbgMemManager; AProcessConfig: TDbgProcessConfig = nil); override;
destructor Destroy; override;
function ReadData(const AAdress: TDbgPtr; const ASize: Cardinal; out AData): Boolean; override;

2
components/lazdebuggers/lazdebuggerfp/test/testasm.pas
View File

@ -69,7 +69,7 @@ codeBytes, ' ', asmInstr,
end;
begin
Process := TDummyProcess.Create('', 0, 0, nil, nil);
Process := TDummyProcess.Create('', nil, nil, nil);
Process.NewMode := dm64;
DisAss := TX86AsmDecoder.Create(Process);
try