From 9e9d8b056fb2342e5c0f9f67b94d0667814cb6b6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 16 Nov 2000 12:49:05 +0000
Subject: [PATCH] [project @ 2000-11-16 12:49:05 by simonmar] oops, undo part
 of rev 1.57 that was commited by mistake.

---
 ghc/rts/PrimOps.hc |    9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index acc4754..5b13303 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.59 2000/11/16 12:49:05 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_
 }
-- 
1.7.10.4