diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-10-01 10:59:11 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-10-01 11:02:04 -0400 |
commit | 4aeda0c38948a51ce3dd96b3f0697c1ee732863a (patch) | |
tree | 9c7b0478f53842386f5f732fe9dafcbaf5a29bce | |
parent | 235e410f63a4725bbc4466dbdef7d5f661793e84 (diff) | |
download | haskell-wip/T18783.tar.gz |
rts: Fix integer width in TICK_BUMP_BYwip/T18783
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.
-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 |