paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 18:17:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug, Windows: Setting thread name by exception, check info of received exception

Browse Source
This commit is contained in:
Martin 2024-02-10 20:53:49 +01:00
parent a7e4fabecc
commit add996429b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgwinclasses.pas
View File

@ -1471,6 +1471,7 @@ begin
t := AThread;
with MDebugEvent.Exception.ExceptionRecord do begin
if (NumberParameters >= 3) and
((ExceptionInformation[0] and $ffffffff) = $1000) and
(TThreadID(ExceptionInformation[2]) <> 0) and
(TThreadID(ExceptionInformation[2]) <> TThreadID(-1))
then begin