diff options
| author | David Himmelstrup <lemmih@gmail.com> | 2020-09-10 16:20:35 +0800 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-11 09:59:43 -0400 |
| commit | 1bd28931903c2fbc10a4b2ecbf9dffd0a3585ac8 (patch) | |
| tree | 114f0c182d71b90931106b9d1a97824cc445697f /includes/stg | |
| parent | 3777be14e104f040b826762f5ab42a8b898d85ae (diff) | |
| download | haskell-1bd28931903c2fbc10a4b2ecbf9dffd0a3585ac8.tar.gz | |
Define TICKY_TICKY when compiling cmm RTS files.
Diffstat (limited to 'includes/stg')
| -rw-r--r-- | includes/stg/Ticky.h | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/includes/stg/Ticky.h b/includes/stg/Ticky.h index 1dd47c6590..cefb674f31 100644 --- a/includes/stg/Ticky.h +++ b/includes/stg/Ticky.h @@ -199,18 +199,23 @@ EXTERN StgInt RET_UNBOXED_TUP_hst[TICKY_BIN_COUNT] INIT({0}); 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) -#define TICK_UPD_OLD_IND() -#define TICK_UPD_NEW_IND() -#define TICK_UPD_SQUEEZED() -#define TICK_ALLOC_HEAP_NOCTR(bytes) -#define TICK_GC_FAILED_PROMOTION() -#define TICK_ALLOC_TSO() -#define TICK_ALLOC_STACK(g) -#define TICK_ALLOC_UP_THK(g,s) -#define TICK_ALLOC_SE_THK(g,s) +#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 |