summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2019-05-03 08:13:57 +0300
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-05-03 20:56:18 -0400
commit0a3e4db325ed2d073c9664f6ce1f9165181116b0 (patch)
tree37f590bfa18972f80b85615e492b8d8242e09e4a /rts
parent0af93d16d93ee24efd6ed4a0466f813650b8788f (diff)
downloadhaskell-0a3e4db325ed2d073c9664f6ce1f9165181116b0.tar.gz
PrimOps.cmm: remove unused stuff
Diffstat (limited to 'rts')
-rw-r--r--rts/PrimOps.cmm8
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;