diff options
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) | |||
| 128 | 128 | ||
| 129 | /* Helper functions to scan the backtrace. */ | 129 | /* Helper functions to scan the backtrace. */ |
| 130 | 130 | ||
| 131 | LISP_INLINE bool backtrace_p (struct specbinding *pdl) | 131 | EXTERN_INLINE bool backtrace_p (struct specbinding *pdl) |
| 132 | { return pdl >= specpdl; } | 132 | { return pdl >= specpdl; } |
| 133 | LISP_INLINE struct specbinding *backtrace_top (void) | 133 | |
| 134 | EXTERN_INLINE struct specbinding *backtrace_top (void) | ||
| 134 | { | 135 | { |
| 135 | struct specbinding *pdl = specpdl_ptr - 1; | 136 | struct specbinding *pdl = specpdl_ptr - 1; |
| 136 | while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) \ | 137 | while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) |
| 137 | pdl--; | 138 | pdl--; |
| 138 | return pdl; | 139 | return pdl; |
| 139 | } | 140 | } |
| 140 | LISP_INLINE struct specbinding *backtrace_next (struct specbinding *pdl) | 141 | |
| 142 | EXTERN_INLINE struct specbinding *backtrace_next (struct specbinding *pdl) | ||
| 141 | { | 143 | { |
| 142 | pdl--; | 144 | pdl--; |
| 143 | while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) | 145 | while (backtrace_p (pdl) && pdl->kind != SPECPDL_BACKTRACE) |