From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 17 Feb 2020 20:44:10 +0000 (-0800)
Subject: Avoid unlikely load-average bug
X-Git-Tag: emacs-28.0.90~7873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=121f9bb14ab0abe618cabd24bd25ed328e36891c;p=emacs.git

Avoid unlikely load-average bug

* src/fns.c (Fload_average): Do not crash or return nonsense
if the load average exceeds most-positive-fixnum/100 (Bug#39577).
---

diff --git a/src/fns.c b/src/fns.c
index 436ef1c7b74..80012fa9d28 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2843,7 +2843,7 @@ advisable.  */)
   while (loads-- > 0)
     {
       Lisp_Object load = (NILP (use_floats)
-			  ? make_fixnum (100.0 * load_ave[loads])
+			  ? double_to_integer (100.0 * load_ave[loads])
 			  : make_float (load_ave[loads]));
       ret = Fcons (load, ret);
     }