[project @ 2005-03-31 08:59:34 by simonmar]

[ghc-hetmet.git] / ghc / rts / Select.c

diff --git a/ghc/rts/Select.c b/ghc/rts/Select.c
index 418e48c..67ba589 100644 (file)
--- a/ghc/rts/Select.c
+++ b/ghc/rts/Select.c
@@ -35,7 +35,7 @@
 #endif
 
 /* last timestamp */
-nat timestamp = 0;
+lnat timestamp = 0;
 
 /* There's a clever trick here to avoid problems when the time wraps
  * around.  Since our maximum delay is smaller than 31 bits of ticks
@@ -49,7 +49,7 @@ nat timestamp = 0;
  * (idea due to Andy Gill).
  */
 rtsBool
-wakeUpSleepingThreads(nat ticks)
+wakeUpSleepingThreads(lnat ticks)
 {
     StgTSO *tso;
     rtsBool flag = rtsFalse;