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 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++; |