From bfb850f909c2e25ab34a5770b4a1ab119f2eeae5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 12 Nov 1999 10:18:59 +0000
Subject: [PATCH] [project @ 1999-11-12 10:18:59 by simonmar] Fix REG_Su
 optimised code for update frames (only affects machines
 with a REG_Su, such as Sparc).

---
 ghc/rts/Updates.hc |   12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc
index 3b1f5c2..6f01fc8 100644
--- a/ghc/rts/Updates.hc
+++ b/ghc/rts/Updates.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Updates.hc,v 1.21 1999/11/09 15:47:00 simonmar Exp $
+ * $Id: Updates.hc,v 1.22 1999/11/12 10:18:59 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -60,15 +60,7 @@
 	   */								\
 	  TICK_UPD_CON_IN_NEW(sizeW_fromITBL(get_itbl(Su)));		\
 									\
-	  if (Bdescr(updatee)->back != BaseReg) {			\
-		LOCK_CLOSURE(Su);					\
-	  }								\
-									\
- 	  UPD_IND_NOLOCK(Su,R1.p);					\
-									\
-	  /* update the updatee with an indirection 			\
-	   * to the return value 					\
-	   */								\
+ 	  UPD_IND(Su,R1.p);						\
 									\
 	  /* reset Su to the next update frame */			\
 	  Su = ((StgUpdateFrame *)Sp)->link;				\
-- 
1.7.10.4