diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-10-01 10:59:11 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-05 13:59:33 -0400 |
| commit | 18a3ddf75d25094096a7fe44fd250de973041187 (patch) | |
| tree | 89fc7f8af2f6b8cf3dadb7dd9b9ffb5507336bf0 /includes | |
| parent | 802b5e6fdd6dfc58396a9dca1903dc5a1d6634ca (diff) | |
| download | haskell-18a3ddf75d25094096a7fe44fd250de973041187.tar.gz | |
rts: Fix integer width in TICK_BUMP_BY
Previously `TICK_BUMP_BY` was defined as
```c
#define TICK_BUMP_BY(ctr,n) CLong[ctr] = CLong[ctr] + n
```
Yet the tickers themselves were defined as `StgInt`s. This happened to
work out correctly on Linux, where `CLong` is 64-bits. However, it
failed on Windows, where `CLong` is 32-bits, resulting in #18782.
Fixes #18783.
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/Cmm.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 526dddc7aa..574c60a1b3 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -652,7 +652,7 @@ -------------------------------------------------------------------------- */ #if defined(TICKY_TICKY) -#define TICK_BUMP_BY(ctr,n) CLong[ctr] = CLong[ctr] + n +#define TICK_BUMP_BY(ctr,n) W_[ctr] = W_[ctr] + n #else #define TICK_BUMP_BY(ctr,n) /* nothing */ #endif |