mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-10 08:11:53 -07:00
Code Issues Projects Releases Wiki Activity

Call maybe_quit at a different point to the help the profiler.

Browse source 
* src/bytecode.c (exec_byte_code): In the docall sequence, move
the to maybe_quit forward immediately before lisp_eval_depth--.
This helps the profiler to see the function that was
interrupted by the SIGPROF signal.
This commit is contained in:
Helmut Eller 2025-01-03 18:12:41 +01:00 • committed by Gerd Möllmann
parent f3ef8385dc
commit c2d0be1177
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/bytecode.c
View file

@ -784,7 +784,6 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
}
}
#endif
maybe_quit ();
if (++lisp_eval_depth > max_lisp_eval_depth)
{
@ -829,6 +828,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template,
else
val = funcall_general (original_fun, call_nargs, call_args);
maybe_quit ();
lisp_eval_depth--;
if (backtrace_debug_on_exit (specpdl_ptr - 1))
val = call_debugger (list2 (Qexit, val));