X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fposix%2FGetTime.c;fp=ghc%2Frts%2Fposix%2FGetTime.c;h=cbc277f944810d37e9b6cad979348b5baf374735;hb=cfc13f94f960b25155157f90aa5731aba86e5d4e;hp=825ede69e1d5946b917e805a8ec32ad6192d62be;hpb=d8afa7c91f1e6658937cb2e89cfeff6408361699;p=ghc-hetmet.git

diff --git a/ghc/rts/posix/GetTime.c b/ghc/rts/posix/GetTime.c
index 825ede6..cbc277f 100644
--- a/ghc/rts/posix/GetTime.c
+++ b/ghc/rts/posix/GetTime.c
@@ -119,7 +119,7 @@ Ticks getThreadCPUTime(void)
     struct timespec ts;
     clock_gettime(CLOCK_THREAD_CPUTIME_ID, &ts);
     return (ts.tv_sec * TICKS_PER_SECOND + 
-	    ts.tv_nsec / (1000000000/TICKS_PER_SECOND));
+	    ((Ticks)ts.tv_nsec * TICKS_PER_SECOND) / 1000000000);
 #else
     return getProcessCPUTime();
 #endif