OSDN Git Service

enable SH libgloss build
[pf3gnuchains/gcc-fork.git] / gcc / c-objc-common.c
index 58c748c..d6729ac 100644 (file)
@@ -1,5 +1,6 @@
 /* Some code common to C and ObjC front ends.
-   Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc.
+   Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007,
+   2009 Free Software Foundation, Inc.
 
 This file is part of GCC.
 
@@ -26,6 +27,7 @@ along with GCC; see the file COPYING3.  If not see
 #include "insn-config.h"
 #include "integrate.h"
 #include "c-tree.h"
+#include "intl.h"
 #include "c-pretty-print.h"
 #include "function.h"
 #include "flags.h"
@@ -50,65 +52,6 @@ c_missing_noreturn_ok_p (tree decl)
   return flag_hosted && MAIN_NAME_P (DECL_ASSEMBLER_NAME (decl));
 }
 
-/* We want to inline `extern inline' functions even if this would
-   violate inlining limits.  Some glibc and linux constructs depend on
-   such functions always being inlined when optimizing.  */
-
-int
-c_disregard_inline_limits (const_tree fn)
-{
-  if (lookup_attribute ("always_inline", DECL_ATTRIBUTES (fn)) != NULL)
-    return 1;
-
-  return (!flag_really_no_inline && DECL_DECLARED_INLINE_P (fn)
-         && DECL_EXTERNAL (fn));
-}
-
-int
-c_cannot_inline_tree_fn (tree *fnp)
-{
-  tree fn = *fnp;
-  bool do_warning = (warn_inline
-                    && DECL_INLINE (fn)
-                    && DECL_DECLARED_INLINE_P (fn)
-                    && !DECL_IN_SYSTEM_HEADER (fn));
-  tree always_inline = lookup_attribute ("always_inline", DECL_ATTRIBUTES (fn));
-
-  if (flag_really_no_inline && always_inline == NULL)
-    {
-      if (do_warning)
-       warning (OPT_Winline, "function %q+F can never be inlined because it "
-                "is suppressed using -fno-inline", fn);
-      goto cannot_inline;
-    }
-
-  /* Don't auto-inline anything that might not be bound within
-     this unit of translation.  */
-  if (always_inline == NULL
-      && !DECL_DECLARED_INLINE_P (fn)
-      && !targetm.binds_local_p (fn))
-    {
-      if (do_warning)
-       warning (OPT_Winline, "function %q+F can never be inlined because it "
-                "might not be bound within this unit of translation", fn);
-      goto cannot_inline;
-    }
-
-  if (!function_attribute_inlinable_p (fn))
-    {
-      if (do_warning)
-       warning (OPT_Winline, "function %q+F can never be inlined because it "
-                "uses attributes conflicting with inlining", fn);
-      goto cannot_inline;
-    }
-
-  return 0;
-
- cannot_inline:
-  DECL_UNINLINABLE (fn) = 1;
-  return 1;
-}
-
 /* Called from check_global_declarations.  */
 
 bool
@@ -157,7 +100,6 @@ c_tree_printer (pretty_printer *pp, text_info *text, const char *spec,
 {
   tree t = va_arg (*text->args_ptr, tree);
   tree name;
-  const char *n = "({anonymous})";
   c_pretty_printer *cpp = (c_pretty_printer *) pp;
   pp->padding = pp_none;
 
@@ -183,7 +125,10 @@ c_tree_printer (pretty_printer *pp, text_info *text, const char *spec,
 
     case 'F':
       if (DECL_NAME (t))
-       n = lang_hooks.decl_printable_name (t, 2);
+       {
+         pp_identifier (cpp, lang_hooks.decl_printable_name (t, 2));
+         return true;
+       }
       break;
 
     case 'T':
@@ -193,7 +138,7 @@ c_tree_printer (pretty_printer *pp, text_info *text, const char *spec,
       if (name && TREE_CODE (name) == TYPE_DECL)
        {
          if (DECL_NAME (name))
-           pp_string (cpp, lang_hooks.decl_printable_name (name, 2));
+           pp_identifier (cpp, lang_hooks.decl_printable_name (name, 2));
          else
            pp_type_id (cpp, t);
          return true;
@@ -207,25 +152,22 @@ c_tree_printer (pretty_printer *pp, text_info *text, const char *spec,
 
     case 'E':
       if (TREE_CODE (t) == IDENTIFIER_NODE)
-       n = IDENTIFIER_POINTER (t);
+       pp_identifier (cpp, IDENTIFIER_POINTER (t));
       else
-       {
-         pp_expression (cpp, t);
-         return true;
-       }
-      break;
+       pp_expression (cpp, t);
+      return true;
 
     default:
       return false;
     }
 
-  pp_string (cpp, n);
+  pp_string (cpp, _("({anonymous})"));
   return true;
 }
 
 /* In C and ObjC, all decls have "C" linkage.  */
 bool
-has_c_linkage (tree decl ATTRIBUTE_UNUSED)
+has_c_linkage (const_tree decl ATTRIBUTE_UNUSED)
 {
   return true;
 }