X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Fstg%2FMiscClosures.h;fp=includes%2Fstg%2FMiscClosures.h;h=0aa6f99675a577f7de50ea2f75bda8121eef7521;hb=f4692220c7cbdadaa633f50eb2b30b59edb30183;hp=4abb67dc5559c09b2eb42e7a436d8533d83bfcec;hpb=7c4cb84efd774a21f11fb03118feb0434282ecf3;p=ghc-hetmet.git diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index 4abb67d..0aa6f99 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -42,10 +42,10 @@ # define RTS_FUN(f) RTS_FUN_INFO(f##_info) # define RTS_THUNK(f) RTS_THUNK_INFO(f##_info) #else -# define RTS_RET(f) RTS_INFO(f##_info) RTS_FUN_DECL(f##_ret) -# define RTS_ENTRY(f) RTS_INFO(f##_info) RTS_FUN_DECL(f##_entry) -# define RTS_FUN(f) RTS_FUN_INFO(f##_info) RTS_FUN_DECL(f##_entry) -# define RTS_THUNK(f) RTS_THUNK_INFO(f##_info) RTS_FUN_DECL(f##_entry) +# define RTS_RET(f) RTS_INFO(f##_info); RTS_FUN_DECL(f##_ret) +# define RTS_ENTRY(f) RTS_INFO(f##_info); RTS_FUN_DECL(f##_entry) +# define RTS_FUN(f) RTS_FUN_INFO(f##_info); RTS_FUN_DECL(f##_entry) +# define RTS_THUNK(f) RTS_THUNK_INFO(f##_info); RTS_FUN_DECL(f##_entry) #endif /* Stack frames */ @@ -109,7 +109,6 @@ RTS_ENTRY(stg_MUT_ARR_PTRS_FROZEN0); RTS_ENTRY(stg_MUT_VAR_CLEAN); RTS_ENTRY(stg_MUT_VAR_DIRTY); RTS_ENTRY(stg_END_TSO_QUEUE); -RTS_ENTRY(stg_MSG_WAKEUP); RTS_ENTRY(stg_MSG_TRY_WAKEUP); RTS_ENTRY(stg_MSG_THROWTO); RTS_ENTRY(stg_MSG_BLACKHOLE);