X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.hc;h=f70d7457e5749e87e2e807eb7ef0fa581cef98c4;hb=71efe750343606d6d13fc8b8e77213fe13825288;hp=acc47541f9cd0ca10c7d5c4bf3c5230e14834b93;hpb=34a98f40dea6d31ced5213b7810dc39b4989c395;p=ghc-hetmet.git

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index acc4754..f70d745 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.58 2000/11/13 14:40:37 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.60 2000/12/04 12:31:21 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -981,17 +981,12 @@ FN_(putMVarzh_fast)
     if (mvar->head == (StgTSO *)&stg_END_TSO_QUEUE_closure) {
       mvar->tail = (StgTSO *)&stg_END_TSO_QUEUE_closure;
     }
-
-    /* unlocks the MVar in the SMP case */
-    SET_INFO(mvar,&stg_FULL_MVAR_info);
-
-    /* yield, to give the newly woken thread a chance to take the MVar */
-    JMP_(stg_yield_noregs);
   }
 
   /* unlocks the MVar in the SMP case */
   SET_INFO(mvar,&stg_FULL_MVAR_info);
 
+  /* ToDo: yield here for better communication performance? */
   JMP_(ENTRY_CODE(Sp[0]));
   FE_
 }