diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-06-03 11:18:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-06-03 11:18:18 -0400 |
| commit | a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b (patch) | |
| tree | cf9664003563a682554c9f6826ac967d92e9b012 /src/eval.c | |
| parent | 2f23b3ab02d48e972fbce7f4a38527e07c651aa0 (diff) | |
| download | emacs-a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b.tar.gz | |
* src/eval.c (backtrace_p, backtrace_top, backtrace_next): Export them to
.gdbinit.
* src/data.c (pure_write_error): Add `object' argument.
* src/puresize.h (CHECK_IMPURE): Use it.
* src/keyboard.c (safe_run_hooks_error): Improve error message.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/eval.c b/src/eval.c index fac71e34a22..d6236b6edf2 100644 --- a/src/eval.c +++ b/src/eval.c @@ -128,16 +128,18 @@ void set_backtrace_debug_on_exit (struct specbinding *pdl, bool doe) /* Helper functions to scan the backtrace. */ -LISP_INLINE bool backtrace_p (struct specbinding *pdl) +EXTERN_INLINE bool backtrace_p (struct specbinding *pdl) { return pdl >= specpdl; } -LISP_INLINE struct specbinding *backtrace_top (void) + +EXTERN_INLINE struct specbinding *backtrace_top (void) { struct specbinding *pdl = specpdl_ptr - 1; - while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) \ + while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) pdl--; return pdl; } -LISP_INLINE struct specbinding *backtrace_next (struct specbinding *pdl) + +EXTERN_INLINE struct specbinding *backtrace_next (struct specbinding *pdl) { pdl--; while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) |