X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FSelect.c;fp=rts%2Fposix%2FSelect.c;h=ccf39458d2b2fb1c0e55133a149c66d7a1a41709;hb=93db1991b5cacf8357493a2e17fbbfb485f3205b;hp=0dbacef7a816a175351c35efea530c8fcddda861;hpb=c18587da71e16b581c293baee8d4af119b108da7;p=ghc-hetmet.git

diff --git a/rts/posix/Select.c b/rts/posix/Select.c
index 0dbacef..ccf3945 100644
--- a/rts/posix/Select.c
+++ b/rts/posix/Select.c
@@ -126,7 +126,7 @@ awaitEvent(rtsBool wait)
 	  min = 0;
       } else if (sleeping_queue != END_TSO_QUEUE) {
 	  min = (sleeping_queue->block_info.target - ticks) 
-	      * TICK_MILLISECS * 1000;
+	      * RtsFlags.MiscFlags.tickInterval * 1000;
       } else {
 	  min = 0x7ffffff;
       }