diff options
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 7dca76438b..f3ab30b4b4 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1985,6 +1985,7 @@ setNumCapabilities (nat new_n_capabilities USED_IF_THREADS) // for (n = new_n_capabilities; n < enabled_capabilities; n++) { capabilities[n].disabled = rtsTrue; + traceCapDisable(&capabilities[n]); } enabled_capabilities = new_n_capabilities; } @@ -1996,6 +1997,7 @@ setNumCapabilities (nat new_n_capabilities USED_IF_THREADS) for (n = enabled_capabilities; n < new_n_capabilities && n < n_capabilities; n++) { capabilities[n].disabled = rtsFalse; + traceCapEnable(&capabilities[n]); } enabled_capabilities = n; @@ -2003,7 +2005,8 @@ setNumCapabilities (nat new_n_capabilities USED_IF_THREADS) #if defined(TRACING) // Allocate eventlog buffers for the new capabilities. Note this // must be done before calling moreCapabilities(), because that - // will emit events to add the new capabilities to capsets. + // will emit events about creating the new capabilities and adding + // them to existing capsets. tracingAddCapapilities(n_capabilities, new_n_capabilities); #endif |