[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