aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 70a23488613..ebb8ef58991 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5233,7 +5233,7 @@ See Info node `(elisp)Garbage Collection'. */)
5233 ptrdiff_t i; 5233 ptrdiff_t i;
5234 bool message_p; 5234 bool message_p;
5235 ptrdiff_t count = SPECPDL_INDEX (); 5235 ptrdiff_t count = SPECPDL_INDEX ();
5236 EMACS_TIME start; 5236 struct timespec start;
5237 Lisp_Object retval = Qnil; 5237 Lisp_Object retval = Qnil;
5238 size_t tot_before = 0; 5238 size_t tot_before = 0;
5239 5239
@@ -5258,7 +5258,7 @@ See Info node `(elisp)Garbage Collection'. */)
5258 if (profiler_memory_running) 5258 if (profiler_memory_running)
5259 tot_before = total_bytes_of_live_objects (); 5259 tot_before = total_bytes_of_live_objects ();
5260 5260
5261 start = current_emacs_time (); 5261 start = current_timespec ();
5262 5262
5263 /* In case user calls debug_print during GC, 5263 /* In case user calls debug_print during GC,
5264 don't let that cause a recursive GC. */ 5264 don't let that cause a recursive GC. */
@@ -5521,9 +5521,9 @@ See Info node `(elisp)Garbage Collection'. */)
5521 /* Accumulate statistics. */ 5521 /* Accumulate statistics. */
5522 if (FLOATP (Vgc_elapsed)) 5522 if (FLOATP (Vgc_elapsed))
5523 { 5523 {
5524 EMACS_TIME since_start = sub_emacs_time (current_emacs_time (), start); 5524 struct timespec since_start = timespec_sub (current_timespec (), start);
5525 Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed) 5525 Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed)
5526 + EMACS_TIME_TO_DOUBLE (since_start)); 5526 + timespectod (since_start));
5527 } 5527 }
5528 5528
5529 gcs_done++; 5529 gcs_done++;