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

* protect against empty strings inside the SetThreadDebugNameA and -U functions

Browse Source 
git-svn-id: trunk@45237 -
This commit is contained in:
svenbarth 2020-05-03 21:11:36 +00:00
parent b80d051249
commit 73026618c8
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cthreads.pp
View File

@ -494,6 +494,8 @@ Type PINTRTLEvent = ^TINTRTLEvent;
{$endif}
begin
{$if defined(Linux) or defined(Android)}
if ThreadName = '' then
Exit;
{$ifdef dynpthreads}
if Assigned(pthread_setname_np) then
{$endif dynpthreads}

6
rtl/win/systhrd.inc
View File

@ -400,6 +400,9 @@ var
procedure SysSetThreadDebugNameA(threadHandle: TThreadID; const ThreadName: AnsiString);
begin
{$ifndef WINCE}
if ThreadName = '' then
Exit;
if WinIsDebuggerPresent then
begin
RaiseMSVCExceptionMethod(threadHandle, ThreadName);
@ -417,6 +420,9 @@ var
procedure SysSetThreadDebugNameU(threadHandle: TThreadID; const ThreadName: UnicodeString);
begin
{$ifndef WINCE}
if ThreadName = '' then
Exit;
if WinIsDebuggerPresent then
begin
RaiseMSVCExceptionMethod(threadHandle, AnsiString(ThreadName));