diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-31 09:06:43 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-31 09:19:29 +0100 |
| commit | 598ee1ad1b8de089a2ed207543761d617a90db52 (patch) | |
| tree | 76403dd8740587db6cc70a229d067e76e74fb6af /includes/Rts.h | |
| parent | 9e7acbe7ef2094b301ffcf0b0e7f1fa80abc8460 (diff) | |
| download | haskell-598ee1ad1b8de089a2ed207543761d617a90db52.tar.gz | |
Fix #7087 (integer overflow in getDelayTarget())
Diffstat (limited to 'includes/Rts.h')
| -rw-r--r-- | includes/Rts.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/Rts.h b/includes/Rts.h index 501b9dcbfc..c52fe63d78 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -156,6 +156,8 @@ void _assertFail(const char *filename, unsigned int linenum) #define TIME_RESOLUTION 1000000000 typedef StgInt64 Time; +#define TIME_MAX HS_INT64_MAX + #if TIME_RESOLUTION == 1000000000 // I'm being lazy, but it's awkward to define fully general versions of these #define TimeToUS(t) ((t) / 1000) |