[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).

diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc
index 3b1f5c2..6f01fc8 100644 (file)
--- 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;                            \