diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-05-03 08:13:57 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-03 20:56:18 -0400 |
| commit | 0a3e4db325ed2d073c9664f6ce1f9165181116b0 (patch) | |
| tree | 37f590bfa18972f80b85615e492b8d8242e09e4a | |
| parent | 0af93d16d93ee24efd6ed4a0466f813650b8788f (diff) | |
| download | haskell-0a3e4db325ed2d073c9664f6ce1f9165181116b0.tar.gz | |
PrimOps.cmm: remove unused stuff
| -rw-r--r-- | rts/PrimOps.cmm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 47b9bca04b..d89f0a952b 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -34,9 +34,6 @@ import CLOSURE base_GHCziIOziException_heapOverflow_closure; import EnterCriticalSection; import LeaveCriticalSection; import CLOSURE ghczmprim_GHCziTypes_False_closure; -#if defined(USE_MINIINTERPRETER) || !defined(mingw32_HOST_OS) -import CLOSURE sm_mutex; -#endif #if defined(PROFILING) import CLOSURE CCS_MAIN; #endif @@ -1104,10 +1101,9 @@ INFO_TABLE_RET(stg_atomically_frame, ATOMICALLY_FRAME, return (P_ result) // value returned to the frame { W_ valid; - gcptr trec, outer, q; + gcptr trec; - trec = StgTSO_trec(CurrentTSO); - outer = StgTRecHeader_enclosing_trec(trec); + trec = StgTSO_trec(CurrentTSO); /* Back at the atomically frame */ frame_result = result; |