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/StgStdThunks.cmm | |
parent | c9c4951cc1d76273be541fc4791e131e418956aa (diff) | |
download | haskell-d31dfb32ea936c22628b508c28a36c12e631430a.tar.gz |
Implemented and fixed bugs in CmmInfo handling
Diffstat (limited to 'rts/StgStdThunks.cmm')
-rw-r--r-- | rts/StgStdThunks.cmm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rts/StgStdThunks.cmm b/rts/StgStdThunks.cmm index 342a6eb164..db9c254233 100644 --- a/rts/StgStdThunks.cmm +++ b/rts/StgStdThunks.cmm @@ -32,17 +32,15 @@ #ifdef PROFILING #define SAVE_CCCS(fs) StgHeader_ccs(Sp-fs) = W_[CCCS] #define GET_SAVED_CCCS W_[CCCS] = StgHeader_ccs(Sp) -#define RET_BITMAP 3 -#define RET_FRAMESIZE 2 +#define RET_PARAMS W_ unused1, W_ unused2 #else #define SAVE_CCCS(fs) /* empty */ #define GET_SAVED_CCCS /* empty */ -#define RET_BITMAP 0 -#define RET_FRAMESIZE 0 +#define RET_PARAMS #endif #define SELECTOR_CODE_UPD(offset) \ - INFO_TABLE_RET(stg_sel_ret_##offset##_upd, RET_FRAMESIZE, RET_BITMAP, RET_SMALL) \ + INFO_TABLE_RET(stg_sel_ret_##offset##_upd, RET_SMALL, RET_PARAMS) \ { \ R1 = StgClosure_payload(R1,offset); \ GET_SAVED_CCCS; \ @@ -85,7 +83,7 @@ SELECTOR_CODE_UPD(14) SELECTOR_CODE_UPD(15) #define SELECTOR_CODE_NOUPD(offset) \ - INFO_TABLE_RET(stg_sel_ret_##offset##_noupd, RET_FRAMESIZE, RET_BITMAP, RET_SMALL) \ + INFO_TABLE_RET(stg_sel_ret_##offset##_noupd, RET_SMALL, RET_PARAMS) \ { \ R1 = StgClosure_payload(R1,offset); \ GET_SAVED_CCCS; \ |