From: Andreas Schwab Date: Sun, 11 Jul 2010 08:38:22 +0000 (+0200) Subject: Remove obsolete noinline declaration X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~51^2~78^2~11 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a64df65010c90f1f4bad5a5076c8fbcba61ba6d8;p=emacs.git 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 c5c4b04e88a..09250b09ac6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-07-11 Andreas Schwab + + * eval.c: Remove obsolete noinline declaration. + * fns.c: Likewise. + 2010-07-11 Ken Raeburn * doprnt.c (doprnt): Take a va_list argument instead of count and diff --git a/src/eval.c b/src/eval.c index 140ba85d789..7f686c045fb 100644 --- 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 void init_eval_once (void) diff --git a/src/fns.c b/src/fns.c index 42e7a715f76..0e220c5ee0b 100644 --- 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; } -#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