Rename atomicReadMVar and friends to readMVar.
[ghc.git] / rts / PrimOps.cmm
index 6bb938e..648594b 100644 (file)
@@ -1406,7 +1406,7 @@ loop:
         goto loop;
     }
 
-    // There are atomicReadMVar/takeMVar(s) waiting: wake up the first one
+    // There are readMVar/takeMVar(s) waiting: wake up the first one
 
     tso = StgMVarTSOQueue_tso(q);
     StgMVar_head(mvar) = StgMVarTSOQueue_link(q);
@@ -1434,7 +1434,7 @@ loop:
 
     ccall tryWakeupThread(MyCapability() "ptr", tso);
 
-    // If it was an atomicReadMVar, then we can still do work,
+    // If it was an readMVar, then we can still do work,
     // so loop back. (XXX: This could take a while)
     if (why_blocked == BlockedOnMVarRead) {
         q = StgMVarTSOQueue_link(q);
@@ -1508,7 +1508,7 @@ loop:
 
     ccall tryWakeupThread(MyCapability() "ptr", tso);
 
-    // If it was an atomicReadMVar, then we can still do work,
+    // If it was an readMVar, then we can still do work,
     // so loop back. (XXX: This could take a while)
     if (why_blocked == BlockedOnMVarRead) {
         q = StgMVarTSOQueue_link(q);
@@ -1521,7 +1521,7 @@ loop:
     return (1);
 }
 
-stg_atomicReadMVarzh ( P_ mvar, /* :: MVar a */ )
+stg_readMVarzh ( P_ mvar, /* :: MVar a */ )
 {
     W_ val, info, tso, q;
 
@@ -1539,7 +1539,7 @@ stg_atomicReadMVarzh ( P_ mvar, /* :: MVar a */ )
         ALLOC_PRIM_WITH_CUSTOM_FAILURE
             (SIZEOF_StgMVarTSOQueue,
              unlockClosure(mvar, stg_MVAR_DIRTY_info);
-             GC_PRIM_P(stg_atomicReadMVarzh, mvar));
+             GC_PRIM_P(stg_readMVarzh, mvar));
 
         q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);
 
@@ -1558,7 +1558,7 @@ stg_atomicReadMVarzh ( P_ mvar, /* :: MVar a */ )
             StgMVar_tail(mvar) = q;
         }
 
-        jump stg_block_atomicreadmvar(mvar);
+        jump stg_block_readmvar(mvar);
     }
 
     val = StgMVar_value(mvar);
@@ -1567,7 +1567,7 @@ stg_atomicReadMVarzh ( P_ mvar, /* :: MVar a */ )
     return (val);
 }
 
-stg_tryAtomicReadMVarzh ( P_ mvar, /* :: MVar a */ )
+stg_tryReadMVarzh ( P_ mvar, /* :: MVar a */ )
 {
     W_ val, info, tso, q;