diff options
| author | Nicolas Trangez <ikke@nicolast.be> | 2022-10-26 17:37:08 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-01 12:47:58 -0400 |
| commit | 8ee8b41805a886cb839c02a5da23b9a8a404003a (patch) | |
| tree | 709f7d1a92e32bbc14d556103cf0d77901d6f06f | |
| parent | d45d8cb3d9bce11729b840bc96ec4616f559809e (diff) | |
| download | haskell-8ee8b41805a886cb839c02a5da23b9a8a404003a.tar.gz | |
rts: `name` argument of `createOSThread` can be `const`
Since we don't intend to ever change the incoming string, declare this
to be true.
Also, in the POSIX implementation, the argument is no longer `STG_UNUSED`
(since ee0deb8054da2a597fc5624469b4c44fd769ada2) in any code path.
See: https://gitlab.haskell.org/ghc/ghc/-/commit/ee0deb8054da2a597fc5624469b4c44fd769ada2#note_460080
| -rw-r--r-- | rts/include/rts/OSThreads.h | 2 | ||||
| -rw-r--r-- | rts/posix/OSThreads.c | 2 | ||||
| -rw-r--r-- | rts/win32/OSThreads.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/rts/include/rts/OSThreads.h b/rts/include/rts/OSThreads.h index 77241341b7..563e886469 100644 --- a/rts/include/rts/OSThreads.h +++ b/rts/include/rts/OSThreads.h @@ -173,7 +173,7 @@ extern void yieldThread ( void ); typedef void* OSThreadProcAttr OSThreadProc(void *); -extern int createOSThread ( OSThreadId* tid, char *name, +extern int createOSThread ( OSThreadId* tid, const char *name, OSThreadProc *startProc, void *param); extern bool osThreadIsAlive ( OSThreadId id ); extern void interruptOSThread ( OSThreadId id ); diff --git a/rts/posix/OSThreads.c b/rts/posix/OSThreads.c index 3d3fe98611..535c79cac3 100644 --- a/rts/posix/OSThreads.c +++ b/rts/posix/OSThreads.c @@ -215,7 +215,7 @@ start_thread (void *param) } int -createOSThread (OSThreadId* pId, char *name STG_UNUSED, +createOSThread (OSThreadId* pId, const char *name, OSThreadProc *startProc, void *param) { struct ThreadDesc *desc = stgMallocBytes(sizeof(struct ThreadDesc), "createOSThread"); diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c index 2c1e462cb4..f02a58d0ed 100644 --- a/rts/win32/OSThreads.c +++ b/rts/win32/OSThreads.c @@ -42,7 +42,7 @@ shutdownThread() } int -createOSThread (OSThreadId* pId, char *name STG_UNUSED, +createOSThread (OSThreadId* pId, const char *name STG_UNUSED, OSThreadProc *startProc, void *param) { HANDLE h; |