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/StgStartup.cmm | |
| parent | c9c4951cc1d76273be541fc4791e131e418956aa (diff) | |
| download | haskell-d31dfb32ea936c22628b508c28a36c12e631430a.tar.gz | |
Implemented and fixed bugs in CmmInfo handling
Diffstat (limited to 'rts/StgStartup.cmm')
| -rw-r--r-- | rts/StgStartup.cmm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm index 2d83a676c0..5b0f7e2a5f 100644 --- a/rts/StgStartup.cmm +++ b/rts/StgStartup.cmm @@ -36,16 +36,12 @@ Returning from the STG world. -------------------------------------------------------------------------- */ +INFO_TABLE_RET( stg_stop_thread, STOP_FRAME, #if defined(PROFILING) -#define STOP_THREAD_BITMAP 3 -#define STOP_THREAD_WORDS 2 -#else -#define STOP_THREAD_BITMAP 0 -#define STOP_THREAD_WORDS 0 + W_ unused, + W_ unused #endif - -INFO_TABLE_RET( stg_stop_thread, STOP_THREAD_WORDS, STOP_THREAD_BITMAP, - STOP_FRAME) +) { /* The final exit. @@ -148,7 +144,7 @@ stg_threadFinished results that comes back. ------------------------------------------------------------------------- */ -INFO_TABLE_RET( stg_forceIO, 0/*size*/, 0/*bitmap*/, RET_SMALL) +INFO_TABLE_RET( stg_forceIO, RET_SMALL) #ifdef REG_R1 { @@ -172,7 +168,7 @@ INFO_TABLE_RET( stg_forceIO, 0/*size*/, 0/*bitmap*/, RET_SMALL) is a register or not. ------------------------------------------------------------------------- */ -INFO_TABLE_RET( stg_noforceIO, 0/*size*/, 0/*bitmap*/, RET_SMALL ) +INFO_TABLE_RET( stg_noforceIO, RET_SMALL ) #ifdef REG_R1 { |