[Emacs-diffs] trunk r113367: * eval.c (backtrace_function, backtrace_args): Now EXTERNALLY_VISIBLE.

[Paul Eggert]

------------------------------------------------------------
revno: 113367
revision-id: address@hidden
parent: address@hidden
author: Paul Eggert  <address@hidden>
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-11 00:17:23 -0700
message:
  * eval.c (backtrace_function, backtrace_args): Now EXTERNALLY_VISIBLE.
  
  This is for .gdbinit xbacktrace.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/eval.c                     eval.c-20091113204419-o5vbwnq5f7feedwu-237

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-07-11 02:17:47 +0000
+++ b/src/ChangeLog     2013-07-11 07:17:23 +0000
@@ -1,5 +1,8 @@
 2013-07-11  Paul Eggert  <address@hidden>
 
+       * 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 (emacs_get_tty): Return void, since nobody uses the value.
        (emacs_set_tty): Now static.

=== modified file 'src/eval.c'
--- a/src/eval.c        2013-06-18 07:42:37 +0000
+++ b/src/eval.c        2013-07-11 07:17:23 +0000
@@ -114,6 +114,13 @@
    frame is half-initialized.  */
 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 apply_lambda (Lisp_Object fun, Lisp_Object args);
 
@@ -152,7 +159,7 @@
   return pdl->unwind.func;
 }
 
-static Lisp_Object
+Lisp_Object
 backtrace_function (union specbinding *pdl)
 {
   eassert (pdl->kind == SPECPDL_BACKTRACE);
@@ -166,7 +173,7 @@
   return pdl->bt.nargs;
 }
 
-static Lisp_Object *
+Lisp_Object *
 backtrace_args (union specbinding *pdl)
 {
   eassert (pdl->kind == SPECPDL_BACKTRACE);
@@ -205,10 +212,6 @@
 
 /* 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
 backtrace_p (union specbinding *pdl)
 { return pdl >= specpdl; }