Fix gc-elapsed rounding bug

* src/alloc.c (garbage_collect): Don’t accumulate rounding
errors when computing gc-elapsed.

diff --git a/src/alloc.c b/src/alloc.c
index 497f600551ef9af52eeb713182ffa88c15e7ca6e..9fbd0d057393f9ca04623fab3f4791998dc07b43 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6021,9 +6021,10 @@ garbage_collect (void)
   /* Accumulate statistics.  */
   if (FLOATP (Vgc_elapsed))
     {
-      struct timespec since_start = timespec_sub (current_timespec (), start);
-      Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed)
-                               + timespectod (since_start));
+      static struct timespec gc_elapsed;
+      gc_elapsed = timespec_add (gc_elapsed,
+                                timespec_sub (current_timespec (), start));
+      Vgc_elapsed = make_float (timespectod (gc_elapsed));
     }
 
   gcs_done++;