diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-11-01 22:40:49 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-11-02 15:58:07 -0500 |
| commit | 7e6786fae76ee0563b04c261e537d15b341ef6b5 (patch) | |
| tree | 691e02baa18a13b861db3a9f6819a8a2f714f49a /rts/RtsAPI.c | |
| parent | 773365f91ff141ad38e929844c901ecd5465a000 (diff) | |
| download | haskell-7e6786fae76ee0563b04c261e537d15b341ef6b5.tar.gz | |
Remove superfluous #ifdef from Takano's patch.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/RtsAPI.c')
| -rw-r--r-- | rts/RtsAPI.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c index baa9934276..725bfeb0b5 100644 --- a/rts/RtsAPI.c +++ b/rts/RtsAPI.c @@ -198,11 +198,9 @@ rts_apply (Capability *cap, HaskellObj f, HaskellObj arg) StgThunk *ap; ap = (StgThunk *)allocate(cap,sizeofW(StgThunk) + 2); -#ifdef PROFILING // Here we don't want to use CCS_SYSTEM, because it's a hidden cost centre, // and evaluating Haskell code under a hidden cost centre leads to // confusing profiling output. (#7753) -#endif SET_HDR(ap, (StgInfoTable *)&stg_ap_2_upd_info, CCS_MAIN); ap->payload[0] = f; ap->payload[1] = arg; |