diff options
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 591fa7ab9b..9f48f5d8f5 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -426,7 +426,9 @@ stg_raisezh * the info was only displayed for an *uncaught* exception. */ if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0::I32) { - foreign "C" fprintCCS_stderr(W_[CCCS] "ptr") []; + SAVE_THREAD_STATE(); + foreign "C" fprintCCS_stderr(W_[CCCS] "ptr", CurrentTSO "ptr") []; + LOAD_THREAD_STATE(); } #endif |