diff options
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 8c305008ae..04a66e31df 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -501,7 +501,7 @@ run_thread: // Costs for the scheduler are assigned to CCS_SYSTEM stopHeapProfTimer(); #if defined(PROFILING) - CCCS = CCS_SYSTEM; + cap->r.rCCCS = CCS_SYSTEM; #endif schedulePostRunThread(cap,t); @@ -2262,7 +2262,7 @@ raiseExceptionHelper (StgRegTable *reg, StgTSO *tso, StgClosure *exception) if (raise_closure == NULL) { raise_closure = (StgThunk *)allocate(cap,sizeofW(StgThunk)+1); - SET_HDR(raise_closure, &stg_raise_info, CCCS); + SET_HDR(raise_closure, &stg_raise_info, cap->r.rCCCS); raise_closure->payload[0] = exception; } updateThunk(cap, tso, ((StgUpdateFrame *)p)->updatee, |