diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:21:30 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:21:30 +0000 |
| commit | d31dfb32ea936c22628b508c28a36c12e631430a (patch) | |
| tree | 76bc1a29b3c5646a8f552af820a81abff49aa492 /rts/Updates.cmm | |
| parent | c9c4951cc1d76273be541fc4791e131e418956aa (diff) | |
| download | haskell-d31dfb32ea936c22628b508c28a36c12e631430a.tar.gz | |
Implemented and fixed bugs in CmmInfo handling
Diffstat (limited to 'rts/Updates.cmm')
| -rw-r--r-- | rts/Updates.cmm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/rts/Updates.cmm b/rts/Updates.cmm index a9f25b76fb..7ebade0aea 100644 --- a/rts/Updates.cmm +++ b/rts/Updates.cmm @@ -45,11 +45,9 @@ } #if defined(PROFILING) -#define UPD_FRAME_BITMAP 3 -#define UPD_FRAME_WORDS 3 +#define UPD_FRAME_PARAMS W_ unused1, W_ unused2, "ptr" W_ unused3 #else -#define UPD_FRAME_BITMAP 0 -#define UPD_FRAME_WORDS 1 +#define UPD_FRAME_PARAMS "ptr" W_ unused1 #endif /* this bitmap indicates that the first word of an update frame is a @@ -57,11 +55,9 @@ * there's a cost-centre-stack in there too). */ -INFO_TABLE_RET( stg_upd_frame, - UPD_FRAME_WORDS, UPD_FRAME_BITMAP, UPDATE_FRAME) +INFO_TABLE_RET( stg_upd_frame, UPDATE_FRAME, UPD_FRAME_PARAMS) UPD_FRAME_ENTRY_TEMPLATE -INFO_TABLE_RET( stg_marked_upd_frame, - UPD_FRAME_WORDS, UPD_FRAME_BITMAP, UPDATE_FRAME) +INFO_TABLE_RET( stg_marked_upd_frame, UPDATE_FRAME, UPD_FRAME_PARAMS) UPD_FRAME_ENTRY_TEMPLATE |