From: rrt <unknown>
Date: Fri, 26 Jan 2001 16:16:19 +0000 (+0000)
Subject: [project @ 2001-01-26 16:16:19 by rrt]
X-Git-Tag: Approximately_9120_patches~2804
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=13e5656c90686321f36ab51a29b285a1b83d7366;p=ghc-hetmet.git

[project @ 2001-01-26 16:16:19 by rrt]
Tidy up. timeb has a millitm field, not a millitime field.
---

diff --git a/ghc/lib/std/Time.hsc b/ghc/lib/std/Time.hsc
index 78da06b..95d7139 100644
--- a/ghc/lib/std/Time.hsc
+++ b/ghc/lib/std/Time.hsc
@@ -3,7 +3,7 @@
 -- to compile on sparc-solaris.  Blargh.
 
 -- -----------------------------------------------------------------------------
--- $Id: Time.hsc,v 1.6 2001/01/17 16:46:02 sewardj Exp $
+-- $Id: Time.hsc,v 1.7 2001/01/26 16:16:19 rrt Exp $
 --
 -- (c) The University of Glasgow, 1995-2001
 --
@@ -240,16 +240,12 @@ getClockTime = do
     usec <- (#peek struct timeval,tv_usec) p_timeval :: IO CLong
     return (TOD (fromIntegral sec) ((fromIntegral usec) * 1000))
  
-#elif HAVE_FTIME && !defined(cygwin32_TARGET_OS)
-  --
-  -- ftime() as implemented by cygwin (in B20.1) is
-  -- not right, so stay away & use time() there instead.
-  --
+#elif HAVE_FTIME
 getClockTime = do
   allocaBytes (#const sizeof(struct timeb)) $ \ p_timeb -> do
   ftime p_timeb
   sec  <- (#peek struct timeb,time) p_timeb :: IO CTime
-  msec <- (#peek struct timeb,millitime) p_timeb :: IO CUShort
+  msec <- (#peek struct timeb,millitm) p_timeb :: IO CUShort
   return (TOD (fromIntegral sec) (fromIntegral msec * 1000{-ToDo: correct???-}))
 
 #else /* use POSIX time() */
@@ -356,7 +352,7 @@ zone x = do
   if dst then peekElemOff tzname 1 else peekElemOff tzname 0
 # else /* ! HAVE_TZNAME */
 -- We're in trouble. If you should end up here, please report this as a bug.
-#  error Dont know how to get at timezone name on your OS.
+#  error "Don't know how to get at timezone name on your OS."
 # endif /* ! HAVE_TZNAME */
 
 -- Get the offset in secs from UTC, if (struct tm) doesn't supply it. */