Commit 9959dee3 authored by ian@well-typed.com's avatar ian@well-typed.com

More CPP macro -> inline function

parent 6252300e
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment