# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1157204416 0
# Node ID 01fdc3c9ea0e0c053268c0276209a8cd1e86d8ed
# Parent  f396703cc830d846d9de3b89bafd323cfca065b6
(apply1, call2) [__GNUC__]: Declare with `__attribute__((noinline))'.

diff -r f396703cc830 -r 01fdc3c9ea0e src/eval.c
--- a/src/eval.c	Sat Sep 02 13:39:48 2006 +0000
+++ b/src/eval.c	Sat Sep 02 13:40:16 2006 +0000
@@ -199,6 +199,14 @@
 
 static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
 static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN;
+
+#if __GNUC__
+/* "gcc -O3" enables automatic function inlining, which optimizes out
+   the arguments for the invocations of these functions, whereas they
+   expect these values on the stack.  */
+Lisp_Object apply1 () __attribute__((noinline));
+Lisp_Object call2 () __attribute__((noinline));
+#endif
 
 void
 init_eval_once ()