diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-01-15 19:21:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-01-15 19:21:38 +0000 |
| commit | 54121fffb5ee069d9b7a5628104ff1114ea87182 (patch) | |
| tree | ccf6cf4edf528892c5ea003f5cd8a70b6288f951 | |
| parent | e0383e29bee3903ebbe8a123a34ce0b174fdb02b (diff) | |
| download | haskell-54121fffb5ee069d9b7a5628104ff1114ea87182.tar.gz | |
Fix a #define
I don't think it was causing any problems, but
TimeToUS(x+y)
would have evaluated to
x + (y / 1000)
| -rw-r--r-- | includes/Rts.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/Rts.h b/includes/Rts.h index 45c09f8fb7..3360eda323 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -166,7 +166,7 @@ typedef StgInt64 Time; #if TIME_RESOLUTION == 1000000000 // I'm being lazy, but it's awkward to define fully general versions of these -#define TimeToUS(t) (t / 1000) +#define TimeToUS(t) ((t) / 1000) #define TimeToNS(t) (t) #define USToTime(t) ((Time)(t) * 1000) #define NSToTime(t) ((Time)(t)) |