From: Ian Lynagh <igloo@earth.li>
Date: Tue, 28 Nov 2006 21:05:16 +0000 (+0000)
Subject: Make the non-threaded-RTS threadDelay wait at least as long as asked
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=98cb2efd8279ec48eee1be37dad263e16552fafb

Make the non-threaded-RTS threadDelay wait at least as long as asked
---

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 3252993..bfb0b86 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2052,8 +2052,11 @@ delayzh_fast
 #else
 
     W_ time;
+    W_ divisor;
     time = foreign "C" getourtimeofday() [R1];
-    target = (R1 / (TO_W_(RtsFlags_MiscFlags_tickInterval(RtsFlags))*1000)) + time;
+    divisor = TO_W_(RtsFlags_MiscFlags_tickInterval(RtsFlags))*1000;
+    target = ((R1 + divisor - 1) / divisor) /* divide rounding up */
+           + time + 1; /* Add 1 as getourtimeofday rounds down */
     StgTSO_block_info(CurrentTSO) = target;
 
     /* Insert the new thread in the sleeping queue. */