Commit 9c203066 authored by Paul Eggert's avatar Paul Eggert
Browse files

* eval.c (backtrace_function, backtrace_args): Now EXTERNALLY_VISIBLE.

This is for .gdbinit xbacktrace.
parent a43d577e
2013-07-11 Paul Eggert <eggert@cs.ucla.edu> 2013-07-11 Paul Eggert <eggert@cs.ucla.edu>
* eval.c (backtrace_function, backtrace_args): Now EXTERNALLY_VISIBLE.
This is for .gdbinit xbacktrace.
* sysdep.c, term.c, termcap.c, terminal.c: Integer-related minor fixes. * sysdep.c, term.c, termcap.c, terminal.c: Integer-related minor fixes.
* sysdep.c (emacs_get_tty): Return void, since nobody uses the value. * sysdep.c (emacs_get_tty): Return void, since nobody uses the value.
(emacs_set_tty): Now static. (emacs_set_tty): Now static.
......
...@@ -114,6 +114,13 @@ Lisp_Object Vsignaling_function; ...@@ -114,6 +114,13 @@ Lisp_Object Vsignaling_function;
frame is half-initialized. */ frame is half-initialized. */
Lisp_Object inhibit_lisp_code; Lisp_Object inhibit_lisp_code;
/* 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;
static Lisp_Object funcall_lambda (Lisp_Object, ptrdiff_t, Lisp_Object *); static Lisp_Object funcall_lambda (Lisp_Object, ptrdiff_t, Lisp_Object *);
static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args); static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args);
...@@ -152,7 +159,7 @@ specpdl_func (union specbinding *pdl) ...@@ -152,7 +159,7 @@ specpdl_func (union specbinding *pdl)
return pdl->unwind.func; return pdl->unwind.func;
} }
static Lisp_Object Lisp_Object
backtrace_function (union specbinding *pdl) backtrace_function (union specbinding *pdl)
{ {
eassert (pdl->kind == SPECPDL_BACKTRACE); eassert (pdl->kind == SPECPDL_BACKTRACE);
...@@ -166,7 +173,7 @@ backtrace_nargs (union specbinding *pdl) ...@@ -166,7 +173,7 @@ backtrace_nargs (union specbinding *pdl)
return pdl->bt.nargs; return pdl->bt.nargs;
} }
static Lisp_Object * Lisp_Object *
backtrace_args (union specbinding *pdl) backtrace_args (union specbinding *pdl)
{ {
eassert (pdl->kind == SPECPDL_BACKTRACE); eassert (pdl->kind == SPECPDL_BACKTRACE);
...@@ -205,10 +212,6 @@ set_backtrace_debug_on_exit (union specbinding *pdl, bool doe) ...@@ -205,10 +212,6 @@ set_backtrace_debug_on_exit (union specbinding *pdl, bool doe)
/* Helper functions to scan the backtrace. */ /* Helper functions to scan the backtrace. */
bool backtrace_p (union specbinding *) EXTERNALLY_VISIBLE;
union specbinding *backtrace_top (void) EXTERNALLY_VISIBLE;
union specbinding *backtrace_next (union specbinding *pdl) EXTERNALLY_VISIBLE;
bool bool
backtrace_p (union specbinding *pdl) backtrace_p (union specbinding *pdl)
{ return pdl >= specpdl; } { return pdl >= specpdl; }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment