* fns.c (Fload_average): Don't assume 100 * load average fits in int.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5cb9384..35dab79 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * fns.c (Fload_average): Don't assume 100 * load average fits in int.
+
        * fns.c: Don't overflow int when computing a list length.
        * fns.c (QUIT_COUNT_HEURISTIC): New constant.
        (Flength, Fsafe_length): Use EMACS_INT, not int, to avoid unwanted

diff --git a/src/fns.c b/src/fns.c
index 69b95cb..a19c886 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2542,8 +2542,8 @@ advisable.  */)
 
   while (loads-- > 0)
     {
-      Lisp_Object load = (NILP (use_floats) ?
-                         make_number ((int) (100.0 * load_ave[loads]))
+      Lisp_Object load = (NILP (use_floats)
+                         ? make_number (100.0 * load_ave[loads])
                          : make_float (load_ave[loads]));
       ret = Fcons (load, ret);
     }