diff options
| -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); |