summaryrefslogtreecommitdiff
path: root/gcc/c-objc-common.c
diff options
context:
space:
mode:
authorrth <rth@138bc75d-0d04-0410-961f-82ee72b054a4>2002-08-31 02:29:20 +0000
committerrth <rth@138bc75d-0d04-0410-961f-82ee72b054a4>2002-08-31 02:29:20 +0000
commitd16044bb11e37dca74e0d2ea7792a75acd6ac8af (patch)
tree75cc0661da5e3cdaa70bac03cc91d7ba06f5a96b /gcc/c-objc-common.c
parent1782d0c6a6b3df85b0d5ff85b29d55c18b5d0d58 (diff)
downloadgcc-d16044bb11e37dca74e0d2ea7792a75acd6ac8af.tar.gz
* c-objc-common.c: Include target.h.
(c_cannot_inline_tree_fn): Don't auto-inline functions that don't bind locally. Factor setting DECL_UNINLINABLE. * Makefile.in (c-objc-common.o): Update. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@56691 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/c-objc-common.c')
-rw-r--r--gcc/c-objc-common.c30
1 files changed, 14 insertions, 16 deletions
diff --git a/gcc/c-objc-common.c b/gcc/c-objc-common.c
index 939c5345a78..30c85148db7 100644
--- a/gcc/c-objc-common.c
+++ b/gcc/c-objc-common.c
@@ -34,6 +34,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
#include "varray.h"
#include "ggc.h"
#include "langhooks.h"
+#include "target.h"
static bool c_tree_printer PARAMS ((output_buffer *, text_info *));
static tree inline_forbidden_p PARAMS ((tree *, int *, void *));
@@ -150,11 +151,13 @@ c_cannot_inline_tree_fn (fnp)
&& lookup_attribute ("always_inline", DECL_ATTRIBUTES (fn)) == NULL)
return 1;
+ /* Don't auto-inline anything that might not be bound within
+ this unit of translation. */
+ if (!DECL_DECLARED_INLINE_P (fn) && !(*targetm.binds_local_p) (fn))
+ goto cannot_inline;
+
if (! function_attribute_inlinable_p (fn))
- {
- DECL_UNINLINABLE (fn) = 1;
- return 1;
- }
+ goto cannot_inline;
/* If a function has pending sizes, we must not defer its
compilation, and we can't inline it as a tree. */
@@ -164,10 +167,7 @@ c_cannot_inline_tree_fn (fnp)
put_pending_sizes (t);
if (t)
- {
- DECL_UNINLINABLE (fn) = 1;
- return 1;
- }
+ goto cannot_inline;
}
if (DECL_CONTEXT (fn))
@@ -175,10 +175,7 @@ c_cannot_inline_tree_fn (fnp)
/* If a nested function has pending sizes, we may have already
saved them. */
if (DECL_LANG_SPECIFIC (fn)->pending_sizes)
- {
- DECL_UNINLINABLE (fn) = 1;
- return 1;
- }
+ goto cannot_inline;
}
else
{
@@ -201,12 +198,13 @@ c_cannot_inline_tree_fn (fnp)
}
if (walk_tree (&DECL_SAVED_TREE (fn), inline_forbidden_p, fn, NULL))
- {
- DECL_UNINLINABLE (fn) = 1;
- return 1;
- }
+ goto cannot_inline;
return 0;
+
+ cannot_inline:
+ DECL_UNINLINABLE (fn) = 1;
+ return 1;
}
/* Called from check_global_declarations. */