Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Work around GDB bug 32313 when debugging Emacs internals

Browse source 
Problem reported by Eli Zaretskii in:
https://lists.gnu.org/r/emacs-devel/2024-10/msg00653.html
* src/eval.c (backtrace_function_body): Rename from
backtrace_function, and make it static.
(GDB_FUNCPTR): New macro.
(backtrace_function): New function pointer, for GDB only.
This commit is contained in:
Paul Eggert 2024-10-27 17:21:23 -07:00
parent 9e40d3f2a1
commit ebf3fb9a22
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/eval.c
View file

@ -51,7 +51,6 @@ Lisp_Object Vsignaling_function;
/* These would ordinarily be static, but they need to be visible to GDB. */
bool backtrace_p (union specbinding *) EXTERNALLY_VISIBLE;
Lisp_Object *backtrace_args (union specbinding *) EXTERNALLY_VISIBLE;
Lisp_Object backtrace_function (union specbinding *) EXTERNALLY_VISIBLE;
union specbinding *backtrace_next (union specbinding *) EXTERNALLY_VISIBLE;
union specbinding *backtrace_top (void) EXTERNALLY_VISIBLE;
@ -108,12 +107,21 @@ specpdl_arg (union specbinding *pdl)
return pdl->unwind.arg;
}
Lisp_Object
backtrace_function (union specbinding *pdl)
static Lisp_Object
backtrace_function_body (union specbinding *pdl)
{
eassert (pdl->kind == SPECPDL_BACKTRACE);
return pdl->bt.function;
}
/* To work around GDB bug 32313
<https://sourceware.org/bugzilla/show_bug.cgi?id=32313>
make backtrace_function a visible-to-GDB pointer instead of merely
being an externally visible function itself. Declare the pointer
first to pacify gcc -Wmissing-variable-declarations. */
#define GDB_FUNCPTR(func, resulttype, params) \
extern resulttype (*const func) params EXTERNALLY_VISIBLE; \
resulttype (*const func) params = func##_body
GDB_FUNCPTR (backtrace_function, Lisp_Object, (union specbinding *));
static ptrdiff_t
backtrace_nargs (union specbinding *pdl)