diff options
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 3e8612cea7..eb3ce2805a 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -31,7 +31,7 @@ import pthread_mutex_unlock; import base_ControlziExceptionziBase_nestedAtomically_closure; import EnterCriticalSection; import LeaveCriticalSection; -import ghczmprim_GHCziTypes_False_closure; +import ghczmprim_GHCziTypes_False_static_closure; #if defined(USE_MINIINTERPRETER) || !defined(mingw32_HOST_OS) import sm_mutex; #endif @@ -1171,7 +1171,7 @@ stg_atomicallyzh (P_ stm) /* Nested transactions are not allowed; raise an exception */ if (old_trec != NO_TREC) { - jump stg_raisezh(base_ControlziExceptionziBase_nestedAtomically_closure); + jump stg_raisezh(STATIC_CLOSURE(base_ControlziExceptionziBase_nestedAtomically)); } code = stm; @@ -2342,13 +2342,13 @@ stg_getSparkzh () W_ spark; #ifndef THREADED_RTS - return (0,ghczmprim_GHCziTypes_False_closure); + return (0,STATIC_CLOSURE(ghczmprim_GHCziTypes_False)); #else (spark) = ccall findSpark(MyCapability()); if (spark != 0) { return (1,spark); } else { - return (0,ghczmprim_GHCziTypes_False_closure); + return (0,STATIC_CLOSURE(ghczmprim_GHCziTypes_False)); } #endif } |