diff options
author | Cheng Shao <astrohavoc@gmail.com> | 2022-07-27 16:28:51 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-08 16:47:14 -0400 |
commit | 1504a93eecfc9efb3e6d2bda492d811dc32b6122 (patch) | |
tree | 28e2b23761a22c2b9ec0ab198a64c63966b54745 | |
parent | 742292e461e4040faecf3482349a4574a9184239 (diff) | |
download | haskell-1504a93eecfc9efb3e6d2bda492d811dc32b6122.tar.gz |
rts: remove redundant stg_traceCcszh
This out-of-line primop has no Haskell wrapper and hasn't been used
anywhere in the tree. Furthermore, the code gets in the way of !7632, so
it should be garbage collected.
-rw-r--r-- | rts/PrimOps.cmm | 15 | ||||
-rw-r--r-- | rts/RtsSymbols.c | 1 | ||||
-rw-r--r-- | rts/include/stg/MiscClosures.h | 1 |
3 files changed, 0 insertions, 17 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 96dd02e359..9de149ba5f 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -2801,21 +2801,6 @@ stg_getApStackValzh ( P_ ap_stack, W_ offset ) } } -// Write the cost center stack of the first argument on stderr; return -// the second. Possibly only makes sense for already evaluated -// things? -stg_traceCcszh ( P_ obj, P_ ret ) -{ - W_ ccs; - -#if defined(PROFILING) - ccs = StgHeader_ccs(UNTAG(obj)); - ccall fprintCCS_stderr(ccs "ptr"); -#endif - - jump stg_ap_0_fast(ret); -} - stg_getSparkzh () { W_ spark; diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index d5efc0cbad..f979c324ba 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -1015,7 +1015,6 @@ extern char **environ; SymI_HasProto(stopTimer) \ SymI_HasProto(n_capabilities) \ SymI_HasProto(enabled_capabilities) \ - SymI_HasDataProto(stg_traceCcszh) \ SymI_HasDataProto(stg_traceEventzh) \ SymI_HasDataProto(stg_traceMarkerzh) \ SymI_HasDataProto(stg_traceBinaryEventzh) \ diff --git a/rts/include/stg/MiscClosures.h b/rts/include/stg/MiscClosures.h index d439730c72..1d6cc4584f 100644 --- a/rts/include/stg/MiscClosures.h +++ b/rts/include/stg/MiscClosures.h @@ -566,7 +566,6 @@ RTS_FUN_DECL(stg_numSparkszh); RTS_FUN_DECL(stg_noDuplicatezh); -RTS_FUN_DECL(stg_traceCcszh); RTS_FUN_DECL(stg_clearCCSzh); RTS_FUN_DECL(stg_traceEventzh); RTS_FUN_DECL(stg_traceBinaryEventzh); |