PrimOps.cmm: remove unused stuff
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Fri, 3 May 2019 05:13:57 +0000 (08:13 +0300)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Sat, 4 May 2019 00:56:18 +0000 (20:56 -0400)
rts/PrimOps.cmm

index 47b9bca..d89f0a9 100644 (file)
@@ -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;