From: simonmar <unknown>
Date: Thu, 3 Nov 2005 16:23:24 +0000 (+0000)
Subject: [project @ 2005-11-03 16:23:24 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~73
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cfc13f94f960b25155157f90aa5731aba86e5d4e;p=ghc-hetmet.git

[project @ 2005-11-03 16:23:24 by simonmar]
wibble
---

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