Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/54121fffb5ee069d9b7a5628104ff1114ea87182 >--------------------------------------------------------------- commit 54121fffb5ee069d9b7a5628104ff1114ea87182 Author: Ian Lynagh <[email protected]> Date: Sun Jan 15 19:21:38 2012 +0000 Fix a #define I don't think it was causing any problems, but TimeToUS(x+y) would have evaluated to x + (y / 1000) >--------------------------------------------------------------- includes/Rts.h | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/includes/Rts.h b/includes/Rts.h index 45c09f8..3360eda 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)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
