From 24f850fe0c1701c554280a6d8890c25ce3d12023 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Jun 2007 02:01:31 +0000
Subject: [PATCH] re-write a number conversion to see if it makes Apple GCC
 4.0.1 build 5250 generate a different result

svn: r6477
---
 src/mred/mredmac.cxx | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/mred/mredmac.cxx b/src/mred/mredmac.cxx
index a5912e19ad..879af98778 100644
--- a/src/mred/mredmac.cxx
+++ b/src/mred/mredmac.cxx
@@ -426,6 +426,7 @@ static pascal OSErr HandleSmug(const AppleEvent *evt, AppleEvent *rae, long k)
 int WNE(EventRecord *e, double sleep_secs)
 {
   int r;
+  long ticks;
 
   if (mouse_down_in_flight) {
     /* Try hard to handle a mouse-down event before calling
@@ -504,7 +505,12 @@ int WNE(EventRecord *e, double sleep_secs)
 
   waiting_for_next_event = 1;
 
-  r = WaitNextEvent(everyEvent, e, (sleep_secs < 0) ? 0x7FFFFFFF : sleep_secs * 60, mouseRgn);
+  if (sleep_secs < 0.0)
+    ticks = 0x7FFFFFFF;
+  else
+    ticks = (long)(sleep_secs * 60);
+
+  r = WaitNextEvent(everyEvent, e, ticks, mouseRgn);
 
   waiting_for_next_event = 0;