diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-11-09 12:39:47 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-12-16 16:12:44 -0500 |
| commit | 70999283156f527c5aea6dee57a3d14989a9903a (patch) | |
| tree | 50a7d056523d831e4df2202911b78ebb5c92a9af /rts/Threads.c | |
| parent | 99269b9fd817262a686867383bf0fe88fdc64fb0 (diff) | |
| download | haskell-70999283156f527c5aea6dee57a3d14989a9903a.tar.gz | |
rts: Introduce getNumCapabilities
And ensure accesses to n_capabilities are atomic (although with relaxed
ordering). This is necessary as RTS API callers may concurrently call
into the RTS without holding a capability.
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 07d0d0a180..8d59956b50 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -987,7 +987,7 @@ printAllThreads(void) debugBelch("all threads:\n"); - for (i = 0; i < n_capabilities; i++) { + for (i = 0; i < getNumCapabilities(); i++) { cap = capabilities[i]; debugBelch("threads on capability %d:\n", cap->no); for (t = cap->run_queue_hd; t != END_TSO_QUEUE; t = t->_link) { |