projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Two things to do with -dsuppress-uniques
[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 "Cmm.h"
+#include "rts/prof/LDV.h"
+
#include "Updates.h"
#include "Updates.h"
-#include "StgLdvProf.h"
/* on entry to the update code
(1) R1 points to the closure being returned
/* 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))); \
\
/* 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)
}
#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
#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
#endif
/* this bitmap indicates that the first word of an update frame is a