X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.cmm;h=e0fd7c30d5e13a58ce6068e4cfc4a7328e535836;hb=90686adf9d3dc7a09a51853df051bc4ea472d840;hp=fadf63b8575c850476daa519f6c4d53ec26cd6ef;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/Updates.cmm b/rts/Updates.cmm
index fadf63b..e0fd7c3 100644
--- a/rts/Updates.cmm
+++ b/rts/Updates.cmm
@@ -42,7 +42,10 @@
 	  /* ToDo: it might be a PAP, so we should check... */  	\
 	  TICK_UPD_CON_IN_NEW(sizeW_fromITBL(%GET_STD_INFO(updatee)));  \
 									\
-	  UPD_SPEC_IND(updatee, stg_IND_direct_info, R1, jump %ENTRY_CODE(Sp(0))); \
+          updateWithIndirection(stg_IND_direct_info,                    \
+			        updatee,                                \
+			        R1,                                     \
+			        jump %ENTRY_CODE(Sp(0)));               \
 	}
 
 #if defined(PROFILING)