Andreas Klebinger pushed to branch wip/andreask/9.10.4-batch1 at Glasgow Haskell Compiler / GHC
Commits:
-
381d513d
by Andreas Klebinger at 2026-05-26T10:07:14+02:00
1 changed file:
Changes:
| ... | ... | @@ -220,9 +220,14 @@ extern CostCentre * RTS_VAR(CC_LIST); // registered CC list |
| 220 | 220 | #define CCS_ALLOC(ccs, size) (ccs)->mem_alloc += ((size)-sizeofW(StgProfHeader))
|
| 221 | 221 | #define ENTER_CCS_THUNK(cap,p) cap->r.rCCCS = p->header.prof.ccs
|
| 222 | 222 | |
| 223 | +/* Allow using CCS_SYSTEM somewhat consistently with/without profiling mode */
|
|
| 224 | +#define CCS_SYSTEM_OR_NULL CCS_SYSTEM
|
|
| 225 | + |
|
| 223 | 226 | #else /* !PROFILING */
|
| 224 | 227 | |
| 225 | 228 | #define CCS_ALLOC(ccs, amount) doNothing()
|
| 226 | 229 | #define ENTER_CCS_THUNK(cap,p) doNothing()
|
| 227 | 230 | |
| 231 | +#define CCS_SYSTEM_OR_NULL NULL
|
|
| 232 | + |
|
| 228 | 233 | #endif /* PROFILING */ |