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 52d683a1b67..89f2c5dbed1 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5393,7 +5393,7 @@ See Info node `(elisp)Garbage Collection'. */)
5393 int message_p; 5393 int message_p;
5394 Lisp_Object total[8]; 5394 Lisp_Object total[8];
5395 ptrdiff_t count = SPECPDL_INDEX (); 5395 ptrdiff_t count = SPECPDL_INDEX ();
5396 EMACS_TIME t1, t2, t3; 5396 EMACS_TIME t1;
5397 5397
5398 if (abort_on_gc) 5398 if (abort_on_gc)
5399 abort (); 5399 abort ();
@@ -5442,7 +5442,7 @@ See Info node `(elisp)Garbage Collection'. */)
5442 } 5442 }
5443 } 5443 }
5444 5444
5445 EMACS_GET_TIME (t1); 5445 t1 = current_emacs_time ();
5446 5446
5447 /* In case user calls debug_print during GC, 5447 /* In case user calls debug_print during GC,
5448 don't let that cause a recursive GC. */ 5448 don't let that cause a recursive GC. */
@@ -5696,8 +5696,8 @@ See Info node `(elisp)Garbage Collection'. */)
5696 /* Accumulate statistics. */ 5696 /* Accumulate statistics. */
5697 if (FLOATP (Vgc_elapsed)) 5697 if (FLOATP (Vgc_elapsed))
5698 { 5698 {
5699 EMACS_GET_TIME (t2); 5699 EMACS_TIME t2 = current_emacs_time ();
5700 EMACS_SUB_TIME (t3, t2, t1); 5700 EMACS_TIME t3 = sub_emacs_time (t2, t1);
5701 Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed) 5701 Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed)
5702 + EMACS_TIME_TO_DOUBLE (t3)); 5702 + EMACS_TIME_TO_DOUBLE (t3));
5703 } 5703 }