aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c15
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
200static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); 204static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
201static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN; 205static 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. */
211Lisp_Object apply1 () __attribute__((noinline));
212Lisp_Object call2 () __attribute__((noinline));
213#endif
202 214
203void 215void
204init_eval_once () 216init_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))