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

FpDebug: EXCEPTION_SET_THREADNAME check for thread-id. Issue #40699

Browse Source
This commit is contained in:
Martin 2024-01-20 12:14:08 +01:00
parent 8f5e5b262b
commit 7f8267f283
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fpdbgwinclasses.pas
View File

@ -1340,12 +1340,14 @@ begin
if not ReadString(TDbgPtr(MDebugEvent.Exception.ExceptionRecord.ExceptionInformation[1]), 200, threadname) then
threadname := 'error getting threadname';
t := AThread;
if (MDebugEvent.Exception.ExceptionRecord.NumberParameters >= 3) and
(MDebugEvent.Exception.ExceptionRecord.ExceptionInformation[2] <> 0) and
(MDebugEvent.Exception.ExceptionRecord.ExceptionInformation[2] <> INVALID_HANDLE_VALUE)
then begin
if not GetThread(Integer(MDebugEvent.Exception.ExceptionRecord.ExceptionInformation[2]), t) then
t := nil;
with MDebugEvent.Exception.ExceptionRecord do begin
if (NumberParameters >= 3) and
(TThreadID(ExceptionInformation[2]) <> 0) and
(TThreadID(ExceptionInformation[2]) <> TThreadID(-1))
then begin
if not GetThread(Integer(ExceptionInformation[2]), t) then
t := nil;
end;
end;
if t <> nil then begin
with TDbgWinThread(t) do begin