summaryrefslogtreecommitdiff
path: root/rts/RtsAPI.c
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-11-10 20:15:09 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-12-16 16:12:45 -0500
commite0affaa9fc3e6dc0e65808afa383426b7fe9420a (patch)
treeb8315fa018b69b61cb15b71f8da856d0dd61d704 /rts/RtsAPI.c
parentf8e901dcc090ef81723fb9f3d8ea0a1baac4cbc3 (diff)
downloadhaskell-e0affaa9fc3e6dc0e65808afa383426b7fe9420a.tar.gz
rts: Encapsulate access to capabilities array
Diffstat (limited to 'rts/RtsAPI.c')
-rw-r--r--rts/RtsAPI.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index 74e6924ae3..46cb8a91f8 100644
--- a/rts/RtsAPI.c
+++ b/rts/RtsAPI.c
@@ -808,7 +808,7 @@ static void assert_isPausedOnMyTask(const char *functionName)
// Check that we own all capabilities.
for (unsigned int i = 0; i < getNumCapabilities(); i++)
{
- Capability *cap = capabilities[i];
+ Capability *cap = getCapability(i);
if (cap->running_task != task)
{
errorBelch (
@@ -943,7 +943,7 @@ void hs_try_putmvar (/* in */ int capability,
capability = 0;
}
}
- cap = capabilities[capability % enabled_capabilities];
+ cap = getCapability(capability % enabled_capabilities);
#if !defined(THREADED_RTS)