X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FPrimOps.cmm;h=c3ab788ba2df046dfa25cc0e51289bec60b6b57d;hp=6c3593e4a485a97306735ffdd8421db8dc51a359;hb=2d0131da643d1f8da16816c672b7e29defcf2a2d;hpb=b84b5969798530dbf5be9b8bb795b77e5dfbf042

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 6c3593e..c3ab788 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2118,7 +2118,11 @@ delayzh_fast
     W_ time;
     W_ divisor;
     (time) = foreign "C" getourtimeofday() [R1];
-    divisor = TO_W_(RtsFlags_MiscFlags_tickInterval(RtsFlags))*1000;
+    divisor = TO_W_(RtsFlags_MiscFlags_tickInterval(RtsFlags));
+    if (divisor == 0) {
+        divisor = 50;
+    }
+    divisor = divisor * 1000;
     target = ((R1 + divisor - 1) / divisor) /* divide rounding up */
            + time + 1; /* Add 1 as getourtimeofday rounds down */
     StgTSO_block_info(CurrentTSO) = target;