From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 21 Jul 2006 17:28:23 +0000 (+0000)
Subject: (convert_time): Use explicit long double constants to ensure long double
X-Git-Tag: emacs-pretest-22.0.90~1297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69b72317aeb1cc87010be0b2e8f612481ed56334;p=emacs.git

(convert_time): Use explicit long double constants to ensure long double
arithmetics is used throughout.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 510e1f9e49a..8c36f58cca2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-21  Eli Zaretskii  <eliz@gnu.org>
+
+	* w32.c (convert_time): Use explicit long double constants to
+	ensure long double arithmetics is used throughout.
+
 2006-07-20  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* alloc.c (pure_bytes_used_lisp, pure_bytes_used_non_lisp): New	vars.
diff --git a/src/w32.c b/src/w32.c
index d01a1022a19..c093eab599e 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -2256,16 +2256,17 @@ convert_time (FILETIME ft)
 
       SystemTimeToFileTime (&st, &utc_base_ft);
       utc_base = (long double) utc_base_ft.dwHighDateTime
-	* 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime;
+	* 4096.0L * 1024.0L * 1024.0L + utc_base_ft.dwLowDateTime;
       init = 1;
     }
 
   if (CompareFileTime (&ft, &utc_base_ft) < 0)
     return 0;
 
-  ret = (long double) ft.dwHighDateTime * 4096 * 1024 * 1024 + ft.dwLowDateTime;
+  ret = (long double) ft.dwHighDateTime
+    * 4096.0L * 1024.0L * 1024.0L + ft.dwLowDateTime;
   ret -= utc_base;
-  return (time_t) (ret * 1e-7);
+  return (time_t) (ret * 1e-7L);
 }
 
 void