Commit bfb850f9 authored by simonmar's avatar simonmar
Browse files

[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).
parent a2ba15db
/* -----------------------------------------------------------------------------
* $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; \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment