diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2012-08-28 04:47:30 +1000 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2012-08-28 04:59:53 +1000 |
| commit | d82cecbe21772ca038df48207cce4b0ba1f33971 (patch) | |
| tree | 1e3c76a65b093db5b575346da19098cb5ca91919 | |
| parent | 4eb02c17fc814275a4294afe5c9f38eff8c6a489 (diff) | |
| download | haskell-d82cecbe21772ca038df48207cce4b0ba1f33971.tar.gz | |
Fix return type of FUN_INFO_PTR_TO_STRUCT.
Return type was correct when TABLES_NEXT_TO_CODE was defined.
| -rw-r--r-- | includes/rts/storage/ClosureMacros.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h index 4eefb6b881..c6b29aa5b8 100644 --- a/includes/rts/storage/ClosureMacros.h +++ b/includes/rts/storage/ClosureMacros.h @@ -69,7 +69,7 @@ EXTERN_INLINE StgInfoTable *INFO_PTR_TO_STRUCT(const StgInfoTable *info); EXTERN_INLINE StgInfoTable *INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgInfoTable *)info;} EXTERN_INLINE StgRetInfoTable *RET_INFO_PTR_TO_STRUCT(const StgInfoTable *info); EXTERN_INLINE StgRetInfoTable *RET_INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgRetInfoTable *)info;} -INLINE_HEADER StgThunkInfoTable *FUN_INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgFunInfoTable *)info;} +INLINE_HEADER StgFunInfoTable *FUN_INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgFunInfoTable *)info;} INLINE_HEADER StgThunkInfoTable *THUNK_INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgThunkInfoTable *)info;} INLINE_HEADER StgConInfoTable *CON_INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgConInfoTable *)info;} INLINE_HEADER StgFunInfoTable *itbl_to_fun_itbl(const StgInfoTable *i) {return (StgFunInfoTable *)i;} |