Remove obsolete noinline declaration

* eval.c (apply1, call2): Don't declare noinline.
* fns.c (concat): Likewise.

diff --git a/src/ChangeLog b/src/ChangeLog
index c5c4b04e88a3a8041d1482bdc8d2a1748c7c4aed..09250b09ac6aa058a9c19dd89f6e4c4fe9534348 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-11  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * eval.c: Remove obsolete noinline declaration.
+       * fns.c: Likewise.
+
 2010-07-11  Ken Raeburn  <raeburn@raeburn.org>
 
        * doprnt.c (doprnt): Take a va_list argument instead of count and

diff --git a/src/eval.c b/src/eval.c
index 140ba85d789538dc6d02f42ea928019506ae9130..7f686c045fb5d9f171b28b13edbf6df6925de5e9 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -172,14 +172,6 @@ extern Lisp_Object Qfunction;
 
 static Lisp_Object funcall_lambda (Lisp_Object, int, Lisp_Object*);
 static void unwind_to_catch (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 (Lisp_Object fn, Lisp_Object arg) __attribute__((noinline));
-Lisp_Object call2 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2) __attribute__((noinline));
-#endif
 \f
 void
 init_eval_once (void)

diff --git a/src/fns.c b/src/fns.c
index 42e7a715f768f562362664affdb950502bf320ea..0e220c5ee0bb704c62300ce8fd8e5cf201099834 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -371,14 +371,8 @@ Symbols are also allowed; their print names are used instead.  */)
   return i1 < SCHARS (s2) ? Qt : Qnil;
 }
 \f
-#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 (int nargs, Lisp_Object *args, enum Lisp_Type target_type, int last_special) __attribute__((noinline));
-#else  /* !__GNUC__ */
-static Lisp_Object concat (int nargs, Lisp_Object *args, enum Lisp_Type target_type, int last_special);
-#endif
+static Lisp_Object concat (int nargs, Lisp_Object *args,
+                          enum Lisp_Type target_type, int last_special);
 
 /* ARGSUSED */
 Lisp_Object