[commit: ghc] master: More CPP macro -> inline function (9959dee)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9959dee3bd04ff2a00a128175754f23f08440226

>---------------------------------------------------------------

commit 9959dee3bd04ff2a00a128175754f23f08440226
Author: Ian Lynagh <ian at well-typed.com>
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