summaryrefslogtreecommitdiff
path: root/rts/include/stg/Ticky.h
diff options
context:
space:
mode:
authorJohn Ericson <John.Ericson@Obsidian.Systems>2021-07-22 07:26:47 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-08-09 15:11:58 -0400
commitd5de970dafd5876ef30601697576167f56b9c132 (patch)
treecb2ccf4bc4c13e39e211beb60915d7bb4ccc477d /rts/include/stg/Ticky.h
parentfc350dba63da7eefbaa2793fe9fe99f8571b75c0 (diff)
downloadhaskell-d5de970dafd5876ef30601697576167f56b9c132.tar.gz
Move `/includes` to `/rts/include`, sort per package better
In order to make the packages in this repo "reinstallable", we need to associate source code with a specific packages. Having a top level `/includes` dir that mixes concerns (which packages' includes?) gets in the way of this. To start, I have moved everything to `rts/`, which is mostly correct. There are a few things however that really don't belong in the rts (like the generated constants haskell type, `CodeGen.Platform.h`). Those needed to be manually adjusted. Things of note: - No symlinking for sake of windows, so we hard-link at configure time. - `CodeGen.Platform.h` no longer as `.hs` extension (in addition to being moved to `compiler/`) so as not to confuse anyone, since it is next to Haskell files. - Blanket `-Iincludes` is gone in both build systems, include paths now more strictly respect per-package dependencies. - `deriveConstants` has been taught to not require a `--target-os` flag when generating the platform-agnostic Haskell type. Make takes advantage of this, but Hadrian has yet to.
Diffstat (limited to 'rts/include/stg/Ticky.h')
-rw-r--r--rts/include/stg/Ticky.h221
1 files changed, 221 insertions, 0 deletions
diff --git a/rts/include/stg/Ticky.h b/rts/include/stg/Ticky.h
new file mode 100644
index 0000000000..3d9d4aee4f
--- /dev/null
+++ b/rts/include/stg/Ticky.h
@@ -0,0 +1,221 @@
+/* -----------------------------------------------------------------------------
+ *
+ * (c) The GHC Team, 2009
+ *
+ * Declarations for counters used by ticky-ticky profiling.
+ *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ * https://gitlab.haskell.org/ghc/ghc/wikis/commentary/source-tree/includes
+ *
+ * -------------------------------------------------------------------------- */
+
+#pragma once
+
+/* These should probably be automatically generated in order to
+ keep them consistent with the macros that use them (which are
+ defined in Cmm.h) */
+
+/* Here are all the counter declarations: */
+/* If you change this list, make the corresponding change
+ in RTS_TICKY_SYMBOLS in rts/RtsSymbols.c */
+
+/* These two are explicitly declared in rts/Ticky.c, and
+ hence should not be extern'd except when using this header
+ file from STG code; hence IN_STG_CODE */
+
+#if IN_STG_CODE
+extern W_ ticky_entry_ctrs[];
+extern W_ top_ct[];
+#endif
+
+/* The rest are not explicitly declared in rts/Ticky.c. Instead
+ we use the same trick as in the former StgTicky.h: recycle the
+ same declarations for both extern decls (which are included everywhere)
+ and initializations (which only happen once)
+ TICKY_C is defined only in rts/Ticky.c */
+#if defined(TICKY_C)
+#define INIT(ializer) = ializer
+#define EXTERN
+#else
+#define INIT(ializer)
+#define EXTERN extern
+#endif
+
+EXTERN StgInt ENT_VIA_NODE_ctr INIT(0);
+EXTERN StgInt ENT_STATIC_THK_SINGLE_ctr INIT(0);
+EXTERN StgInt ENT_DYN_THK_SINGLE_ctr INIT(0);
+EXTERN StgInt ENT_STATIC_THK_MANY_ctr INIT(0);
+EXTERN StgInt ENT_DYN_THK_MANY_ctr INIT(0);
+EXTERN StgInt ENT_STATIC_FUN_DIRECT_ctr INIT(0);
+EXTERN StgInt ENT_DYN_FUN_DIRECT_ctr INIT(0);
+EXTERN StgInt ENT_STATIC_CON_ctr INIT(0);
+EXTERN StgInt ENT_DYN_CON_ctr INIT(0);
+EXTERN StgInt ENT_STATIC_IND_ctr INIT(0);
+EXTERN StgInt ENT_DYN_IND_ctr INIT(0);
+EXTERN StgInt ENT_PERM_IND_ctr INIT(0);
+EXTERN StgInt ENT_PAP_ctr INIT(0);
+EXTERN StgInt ENT_AP_ctr INIT(0);
+EXTERN StgInt ENT_AP_STACK_ctr INIT(0);
+EXTERN StgInt ENT_BH_ctr INIT(0);
+EXTERN StgInt ENT_LNE_ctr INIT(0);
+
+EXTERN StgInt UNKNOWN_CALL_ctr INIT(0);
+
+EXTERN StgInt SLOW_CALL_fast_v16_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_v_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_f_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_d_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_l_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_n_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_p_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_pv_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_pp_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_ppv_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_ppp_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_pppv_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_pppp_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_ppppp_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_fast_pppppp_ctr INIT(0);
+EXTERN StgInt VERY_SLOW_CALL_ctr INIT(0);
+
+EXTERN StgInt ticky_slow_call_unevald;
+EXTERN StgInt SLOW_CALL_ctr INIT(0);
+EXTERN StgInt MULTI_CHUNK_SLOW_CALL_ctr INIT(0);
+EXTERN StgInt MULTI_CHUNK_SLOW_CALL_CHUNKS_ctr INIT(0);
+EXTERN StgInt KNOWN_CALL_ctr INIT(0);
+EXTERN StgInt KNOWN_CALL_TOO_FEW_ARGS_ctr INIT(0);
+EXTERN StgInt KNOWN_CALL_EXTRA_ARGS_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_FUN_TOO_FEW_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_FUN_CORRECT_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_FUN_TOO_MANY_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_PAP_TOO_FEW_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_PAP_CORRECT_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_PAP_TOO_MANY_ctr INIT(0);
+EXTERN StgInt SLOW_CALL_UNEVALD_ctr INIT(0);
+
+
+EXTERN StgInt UPDF_OMITTED_ctr INIT(0);
+EXTERN StgInt UPDF_PUSHED_ctr INIT(0);
+EXTERN StgInt CATCHF_PUSHED_ctr INIT(0);
+EXTERN StgInt UPDF_RCC_PUSHED_ctr INIT(0);
+EXTERN StgInt UPDF_RCC_OMITTED_ctr INIT(0);
+
+EXTERN StgInt UPD_SQUEEZED_ctr INIT(0);
+EXTERN StgInt UPD_CON_IN_NEW_ctr INIT(0);
+EXTERN StgInt UPD_CON_IN_PLACE_ctr INIT(0);
+EXTERN StgInt UPD_PAP_IN_NEW_ctr INIT(0);
+EXTERN StgInt UPD_PAP_IN_PLACE_ctr INIT(0);
+
+EXTERN StgInt ALLOC_HEAP_ctr INIT(0);
+EXTERN StgInt ALLOC_HEAP_tot INIT(0);
+
+EXTERN StgInt HEAP_CHK_ctr INIT(0);
+EXTERN StgInt STK_CHK_ctr INIT(0);
+
+EXTERN StgInt ALLOC_RTS_ctr INIT(0);
+EXTERN StgInt ALLOC_RTS_tot INIT(0);
+
+EXTERN StgInt ALLOC_FUN_ctr INIT(0);
+EXTERN StgInt ALLOC_FUN_adm INIT(0);
+EXTERN StgInt ALLOC_FUN_gds INIT(0);
+EXTERN StgInt ALLOC_FUN_slp INIT(0);
+
+EXTERN StgInt UPD_NEW_IND_ctr INIT(0);
+EXTERN StgInt UPD_NEW_PERM_IND_ctr INIT(0);
+EXTERN StgInt UPD_OLD_IND_ctr INIT(0);
+EXTERN StgInt UPD_OLD_PERM_IND_ctr INIT(0);
+
+EXTERN StgInt UPD_BH_UPDATABLE_ctr INIT(0);
+EXTERN StgInt UPD_CAF_BH_UPDATABLE_ctr INIT(0);
+EXTERN StgInt UPD_CAF_BH_SINGLE_ENTRY_ctr INIT(0);
+
+EXTERN StgInt GC_SEL_ABANDONED_ctr INIT(0);
+EXTERN StgInt GC_SEL_MINOR_ctr INIT(0);
+EXTERN StgInt GC_SEL_MAJOR_ctr INIT(0);
+
+EXTERN StgInt GC_FAILED_PROMOTION_ctr INIT(0);
+
+EXTERN StgInt ALLOC_UP_THK_ctr INIT(0);
+EXTERN StgInt ALLOC_SE_THK_ctr INIT(0);
+EXTERN StgInt ALLOC_THK_adm INIT(0);
+EXTERN StgInt ALLOC_THK_gds INIT(0);
+EXTERN StgInt ALLOC_THK_slp INIT(0);
+
+EXTERN StgInt ALLOC_CON_ctr INIT(0);
+EXTERN StgInt ALLOC_CON_adm INIT(0);
+EXTERN StgInt ALLOC_CON_gds INIT(0);
+EXTERN StgInt ALLOC_CON_slp INIT(0);
+
+EXTERN StgInt ALLOC_TUP_ctr INIT(0);
+EXTERN StgInt ALLOC_TUP_adm INIT(0);
+EXTERN StgInt ALLOC_TUP_gds INIT(0);
+EXTERN StgInt ALLOC_TUP_slp INIT(0);
+
+EXTERN StgInt ALLOC_BH_ctr INIT(0);
+EXTERN StgInt ALLOC_BH_adm INIT(0);
+EXTERN StgInt ALLOC_BH_gds INIT(0);
+EXTERN StgInt ALLOC_BH_slp INIT(0);
+
+EXTERN StgInt ALLOC_PRIM_ctr INIT(0);
+EXTERN StgInt ALLOC_PRIM_adm INIT(0);
+EXTERN StgInt ALLOC_PRIM_gds INIT(0);
+EXTERN StgInt ALLOC_PRIM_slp INIT(0);
+
+EXTERN StgInt ALLOC_PAP_ctr INIT(0);
+EXTERN StgInt ALLOC_PAP_adm INIT(0);
+EXTERN StgInt ALLOC_PAP_gds INIT(0);
+EXTERN StgInt ALLOC_PAP_slp INIT(0);
+
+EXTERN StgInt ALLOC_TSO_ctr INIT(0);
+EXTERN StgInt ALLOC_TSO_adm INIT(0);
+EXTERN StgInt ALLOC_TSO_gds INIT(0);
+EXTERN StgInt ALLOC_TSO_slp INIT(0);
+
+EXTERN StgInt RET_NEW_ctr INIT(0);
+EXTERN StgInt RET_OLD_ctr INIT(0);
+EXTERN StgInt RET_UNBOXED_TUP_ctr INIT(0);
+
+EXTERN StgInt RET_SEMI_loads_avoided INIT(0);
+/* End of counter declarations. */
+
+/* How many bins in ticky's histograms */
+#define TICKY_BIN_COUNT 9
+
+/* Histogram declarations */
+EXTERN StgInt RET_NEW_hst[TICKY_BIN_COUNT] INIT({0});
+EXTERN StgInt RET_OLD_hst[TICKY_BIN_COUNT] INIT({0});
+EXTERN StgInt RET_UNBOXED_TUP_hst[TICKY_BIN_COUNT] INIT({0});
+/* End of histogram declarations */
+
+/* This is ugly, but the story is:
+ We got rid of StgTicky.h, which was previously
+ defining these macros for the benefit of C code
+ so, we define them here instead (to be no-ops).
+ (since those macros are only defined in Cmm.h)
+
+ Note that these macros must be defined whether
+ TICKY_TICKY is defined or not. */
+
+#if !defined(CMINUSMINUS)
+#if defined(TICKY_TICKY)
+#define TICK_BUMP_BY(ctr,n) ctr = (StgInt) ctr + n
+#else
+#define TICK_BUMP_BY(ctr,n) /* nothing */
+#endif
+
+#define TICK_BUMP(ctr) TICK_BUMP_BY(ctr,1)
+
+#define TICK_ALLOC_PRIM(x,y,z) // FIXME: update counter
+#define TICK_UPD_OLD_IND() TICK_BUMP(UPD_OLD_IND_ctr)
+#define TICK_UPD_NEW_IND() TICK_BUMP(UPD_NEW_IND_ctr)
+#define TICK_UPD_SQUEEZED() TICK_BUMP(UPD_SQUEEZED_ctr)
+#define TICK_ALLOC_HEAP_NOCTR(bytes) // FIXME: update counter
+#define TICK_GC_FAILED_PROMOTION() // FIXME: update counter
+#define TICK_ALLOC_TSO() // FIXME: update counter
+#define TICK_ALLOC_STACK(g) // FIXME: update counter
+#define TICK_ALLOC_UP_THK(g,s) // FIXME: update counter
+#define TICK_ALLOC_SE_THK(g,s) // FIXME: update counter
+
+#endif