diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-25 13:03:31 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-25 13:03:31 +0100 |
| commit | 9959dee3bd04ff2a00a128175754f23f08440226 (patch) | |
| tree | 0c5c088f47db48f157f66825347de08edeb4b704 /includes | |
| parent | 6252300e93bcadab708667382925532dfb61c749 (diff) | |
| download | haskell-9959dee3bd04ff2a00a128175754f23f08440226.tar.gz | |
More CPP macro -> inline function
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/ClosureMacros.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h index 9c4f181db3..4434418c8b 100644 --- a/includes/rts/storage/ClosureMacros.h +++ b/includes/rts/storage/ClosureMacros.h @@ -83,8 +83,10 @@ EXTERN_INLINE StgRetInfoTable *get_ret_itbl(StgClosure *c) {return RET_INFO_PTR_ INLINE_HEADER StgFunInfoTable *get_fun_itbl(StgClosure *c); INLINE_HEADER StgFunInfoTable *get_fun_itbl(StgClosure *c) {return FUN_INFO_PTR_TO_STRUCT(c->header.info);} -#define get_thunk_itbl(c) (THUNK_INFO_PTR_TO_STRUCT((c)->header.info)) -#define get_con_itbl(c) (CON_INFO_PTR_TO_STRUCT((c)->header.info)) +INLINE_HEADER StgThunkInfoTable *get_thunk_itbl(StgClosure *c); +INLINE_HEADER StgThunkInfoTable *get_thunk_itbl(StgClosure *c) {return THUNK_INFO_PTR_TO_STRUCT(c->header.info);} + +INLINE_HEADER StgConInfoTable *get_con_itbl(StgClosure *c) {return CON_INFO_PTR_TO_STRUCT((c)->header.info);} /* ----------------------------------------------------------------------------- Macros for building closures |