From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 2 Sep 2006 13:39:48 +0000 (+0000)
Subject: (concat) [__GNUC__]: Declare with `__attribute__((noinline))'.
X-Git-Tag: emacs-pretest-22.0.90~797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af91f644f4f857ddffcf3744987e89e2dc31dc19;p=emacs.git

(concat) [__GNUC__]: Declare with `__attribute__((noinline))'.
---

diff --git a/src/fns.c b/src/fns.c
index 228d48049f0..f9f4b72529e 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -387,7 +387,12 @@ Symbols are also allowed; their print names are used instead. */)
   return i1 < SCHARS (s2) ? Qt : Qnil;
 }
 
-static Lisp_Object concat ();
+#if __GNUC__
+/* "gcc -O3" enables automatic function inlining, which optimizes out
+   the arguments for the invocations of this function, whereas it
+   expects these values on the stack.  */
+static Lisp_Object concat () __attribute__((noinline));
+#endif
 
 /* ARGSUSED */
 Lisp_Object