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

FpDebug: Win, improved logging for errors

Browse Source
This commit is contained in:
Martin 2022-07-01 01:05:12 +02:00
parent 9e67808d84
commit 3c322a009f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgwinclasses.pas
View File

@ -185,7 +185,7 @@ type
function GetFullProcessImageName(AProcessHandle: THandle): string;
function GetModuleFileName(AModuleHandle: THandle): string;
function GetProcFilename(AProcess: TDbgProcess; lpImageName: LPVOID; fUnicode: word; hFile: handle): string;
procedure LogLastError;
procedure LogLastError(AMsg: String = '');
protected
procedure AfterChangingInstructionCode(const ALocation: TDBGPtr; ACount: Integer); override;
function GetHandle: THandle; override;
@ -363,10 +363,10 @@ begin
{$endif}
end;
procedure TDbgWinProcess.LogLastError;
procedure TDbgWinProcess.LogLastError(AMsg: String);
begin
if not GotExitProcess then
DebugLn(DBG_WARNINGS, 'FpDbg-ERROR: %s', [GetLastErrorText]);
DebugLn(DBG_WARNINGS, 'FpDbg-ERROR: %s -> %s', [AMsg, GetLastErrorText]);
end;
procedure TDbgWinProcess.AfterChangingInstructionCode(const ALocation: TDBGPtr;
@ -571,7 +571,7 @@ begin
if Result then
MaskBreakpointsInReadData(AAdress, ASize, AData)
else
LogLastError;
LogLastError('ReadData '+dbghex(int64(AAdress))+' / '+dbgs(ASize) + '(done: '+dbgs(BytesRead)+' )');
end;
function TDbgWinProcess.WriteData(const AAdress: TDbgPtr; const ASize: Cardinal; const AData): Boolean;
@ -582,7 +582,8 @@ begin
assert(MDebugEvent.dwProcessId <> 0, 'TDbgWinProcess.WriteData: MDebugEvent.dwProcessId <> 0');
Result := WriteProcessMemory(Handle, Pointer(PtrUInt(AAdress)), @AData, ASize, BytesWritten) and (BytesWritten = ASize);
if not Result then LogLastError;
if not Result then
LogLastError('WriteData '+dbghex(int64(AAdress))+' / '+dbgs(ASize) + '(done: '+dbgs(BytesWritten)+' )');
end;
function TDbgWinProcess.ReadString(const AAdress: TDbgPtr; const AMaxSize: Cardinal; out AData: String): Boolean;