master 121f9bb: Avoid unlikely load-average bug

[Paul Eggert]

branch: master
commit 121f9bb14ab0abe618cabd24bd25ed328e36891c
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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).
---
 src/fns.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fns.c b/src/fns.c
index 436ef1c..80012fa 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);
     }