Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9959dee3bd04ff2a00a128175754f23f08440226 >--------------------------------------------------------------- commit 9959dee3bd04ff2a00a128175754f23f08440226 Author: Ian Lynagh <[email protected]> Date: Sat Aug 25 13:03:31 2012 +0100 More CPP macro -> inline function >--------------------------------------------------------------- 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 9c4f181..4434418 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
