diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-25 15:42:20 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-25 15:42:20 +0100 |
| commit | 0ab537c563d0b937aaef29e2bb962793d308b174 (patch) | |
| tree | 2c6b70c614645504ae4c97af0869834ab7c504cc /rts/sm/Compact.c | |
| parent | 773570edf681e26d4cd7f7a628f22c14a73b92fe (diff) | |
| download | haskell-0ab537c563d0b937aaef29e2bb962793d308b174.tar.gz | |
More CPP macros -> inline functions
All the wibble seem to have cancelled out, and (non-debug) object sizes
are back to where they started.
I'm not 100% sure that the types are optimal, but at least now the
functions have types and we can fix them if necessary.
Diffstat (limited to 'rts/sm/Compact.c')
| -rw-r--r-- | rts/sm/Compact.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 987f78b497..6a50f436d7 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -382,7 +382,7 @@ thread_stack(StgPtr p, StgPtr stack_end) StgRetFun *ret_fun = (StgRetFun *)p; StgFunInfoTable *fun_info; - fun_info = FUN_INFO_PTR_TO_STRUCT(UNTAG_CLOSURE((StgClosure *) + fun_info = FUN_INFO_PTR_TO_STRUCT((StgInfoTable *)UNTAG_CLOSURE((StgClosure *) get_threaded_info((StgPtr)ret_fun->fun))); // *before* threading it! thread(&ret_fun->fun); @@ -404,7 +404,7 @@ thread_PAP_payload (StgClosure *fun, StgClosure **payload, StgWord size) StgWord bitmap; StgFunInfoTable *fun_info; - fun_info = FUN_INFO_PTR_TO_STRUCT(UNTAG_CLOSURE((StgClosure *) + fun_info = FUN_INFO_PTR_TO_STRUCT((StgInfoTable *)UNTAG_CLOSURE((StgClosure *) get_threaded_info((StgPtr)fun))); ASSERT(fun_info->i.type != PAP); @@ -818,7 +818,7 @@ update_fwd_compact( bdescr *blocks ) // that if (p&BLOCK_MASK) >= (free&BLOCK_MASK), then we // definitely have enough room. Also see bug #1147. iptr = get_threaded_info(p); - info = INFO_PTR_TO_STRUCT(UNTAG_CLOSURE((StgClosure *)iptr)); + info = INFO_PTR_TO_STRUCT((StgInfoTable *)UNTAG_CLOSURE((StgClosure *)iptr)); q = p; |