diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index c8ad9004c44..3c9a0c03214 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -28,6 +28,10 @@ Boston, MA 02110-1301, USA. */ | |||
| 28 | #include "dispextern.h" | 28 | #include "dispextern.h" |
| 29 | #include <setjmp.h> | 29 | #include <setjmp.h> |
| 30 | 30 | ||
| 31 | #if HAVE_X_WINDOWS | ||
| 32 | #include "xterm.h" | ||
| 33 | #endif | ||
| 34 | |||
| 31 | /* This definition is duplicated in alloc.c and keyboard.c */ | 35 | /* This definition is duplicated in alloc.c and keyboard.c */ |
| 32 | /* Putting it in lisp.h makes cc bomb out! */ | 36 | /* Putting it in lisp.h makes cc bomb out! */ |
| 33 | 37 | ||
| @@ -199,6 +203,14 @@ extern Lisp_Object Qrisky_local_variable; | |||
| 199 | 203 | ||
| 200 | static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); | 204 | static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); |
| 201 | static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN; | 205 | static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN; |
| 206 | |||
| 207 | #if __GNUC__ | ||
| 208 | /* "gcc -O3" enables automatic function inlining, which optimizes out | ||
| 209 | the arguments for the invocations of these functions, whereas they | ||
| 210 | expect these values on the stack. */ | ||
| 211 | Lisp_Object apply1 () __attribute__((noinline)); | ||
| 212 | Lisp_Object call2 () __attribute__((noinline)); | ||
| 213 | #endif | ||
| 202 | 214 | ||
| 203 | void | 215 | void |
| 204 | init_eval_once () | 216 | init_eval_once () |
| @@ -1906,6 +1918,9 @@ find_handler_clause (handlers, conditions, sig, data, debugger_value_ptr) | |||
| 1906 | max_specpdl_size--; | 1918 | max_specpdl_size--; |
| 1907 | } | 1919 | } |
| 1908 | if (! no_debugger | 1920 | if (! no_debugger |
| 1921 | /* Don't try to run the debugger with interrupts blocked. | ||
| 1922 | The editing loop would return anyway. */ | ||
| 1923 | && ! INPUT_BLOCKED_P | ||
| 1909 | && (EQ (sig_symbol, Qquit) | 1924 | && (EQ (sig_symbol, Qquit) |
| 1910 | ? debug_on_quit | 1925 | ? debug_on_quit |
| 1911 | : wants_debugger (Vdebug_on_error, conditions)) | 1926 | : wants_debugger (Vdebug_on_error, conditions)) |