diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 8 |
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 | } |