Simplify syntax for quasi-quotation

[ghc-hetmet.git] / rts / Updates.cmm

diff --git a/rts/Updates.cmm b/rts/Updates.cmm
index 7ebade0..e0fd7c3 100644 (file)
--- a/rts/Updates.cmm
+++ b/rts/Updates.cmm
@@ -12,8 +12,9 @@
 
 
 #include "Cmm.h"
+#include "rts/prof/LDV.h"
+
 #include "Updates.h"
-#include "StgLdvProf.h"
 
 /* on entry to the update code
    (1) R1 points to the closure being returned
@@ -41,13 +42,16 @@
          /* 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)
-#define UPD_FRAME_PARAMS W_ unused1, W_ unused2, "ptr" W_ unused3
+#define UPD_FRAME_PARAMS W_ unused1, W_ unused2, P_ unused3
 #else
-#define UPD_FRAME_PARAMS "ptr" W_ unused1
+#define UPD_FRAME_PARAMS P_ unused1
 #endif
 
 /* this bitmap indicates that the first word of an update frame is a