[commit: ghc] master: Remove superfluous #ifdef from Takano's patch. (7e6786f)

git at git.haskell.org git at git.haskell.org
Sat Nov 2 20:58:41 UTC 2013


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7e6786fae76ee0563b04c261e537d15b341ef6b5/ghc

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

commit 7e6786fae76ee0563b04c261e537d15b341ef6b5
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Nov 1 22:40:49 2013 -0500

    Remove superfluous #ifdef from Takano's patch.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

7e6786fae76ee0563b04c261e537d15b341ef6b5
 rts/RtsAPI.c |    2 --
 1 file changed, 2 deletions(-)

diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index baa9934..725bfeb 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;



More information about the ghc-commits mailing list