paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 15:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix #40603:

Browse Source 
- initialize thrdinfo record using Default() so that padding bytes are zeroed as well
  - correctly pass the count of ULONG_PTRs
This commit is contained in:
Sven/Sarah Barth 2024-02-09 15:08:27 +01:00
parent 2c527cfc01
commit 75b5e8e63d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win/systhrd.inc
View File

@ -375,12 +375,12 @@ var
var
thrdinfo: THREADNAME_INFO;
begin
thrdinfo:=Default(THREADNAME_INFO);
thrdinfo.dwType:=$1000;
thrdinfo.szName:=@ThreadName[1];
thrdinfo.dwThreadID:=threadHandle;
thrdinfo.dwFlags:=0;
try
RaiseException(MS_VC_EXCEPTION, 0, SizeOf(thrdinfo) div SizeOf(DWord), @thrdinfo);
RaiseException(MS_VC_EXCEPTION, 0, SizeOf(thrdinfo) div SizeOf(PtrUInt), @thrdinfo);
except
{do nothing}
end;