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/Interpreter.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/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index d879fd3e77..f3e070000b 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1183,7 +1183,7 @@ run_BCO: int i; int o_itbl = BCO_GET_LARGE_ARG; int n_words = BCO_NEXT; - StgInfoTable* itbl = INFO_PTR_TO_STRUCT(BCO_LIT(o_itbl)); + StgInfoTable* itbl = INFO_PTR_TO_STRUCT((StgInfoTable *)BCO_LIT(o_itbl)); int request = CONSTR_sizeW( itbl->layout.payload.ptrs, itbl->layout.payload.nptrs ); StgClosure* con = (StgClosure*)allocate_NONUPD(cap,request); |