utils.c (handle_pure_attribute, [...]): Rename DECL_IS_PURE to DECL_PURE_P.

* utils.c (handle_pure_attribute, init_gigi_decls): Rename
DECL_IS_PURE to DECL_PURE_P.

From-SVN: r135078

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ae31fb49963287479bbe74bb4847eefcd60a52b4..5da66e0c595d7dcda69886fa16073d8c91f93600 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-08  Andreas Schwab  <schwab@suse.de>
+
+       * utils.c (handle_pure_attribute, init_gigi_decls): Rename
+       DECL_IS_PURE to DECL_PURE_P.
+
 2008-05-05  Eric Botcazou  <ebotcazou@adacore.com>
 
        * decl.c (maybe_pad_type): Add ??? comment.

diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 8d3df68fe40ffe7e9680f4013ddd05ca347229ad..1cce8dae906593e63b70a11efc8d8cfbcb2ab203 100644 (file)
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -635,7 +635,7 @@ init_gigi_decls (tree long_long_float_type, tree exception_type)
      NULL_TREE, build_function_type (jmpbuf_ptr_type, NULL_TREE),
      NULL_TREE, false, true, true, NULL, Empty);
   /* Avoid creating superfluous edges to __builtin_setjmp receivers.  */
-  DECL_IS_PURE (get_jmpbuf_decl) = 1;
+  DECL_PURE_P (get_jmpbuf_decl) = 1;
 
   set_jmpbuf_decl
     = create_subprog_decl
@@ -653,7 +653,7 @@ init_gigi_decls (tree long_long_float_type, tree exception_type)
      build_function_type (build_pointer_type (except_type_node), NULL_TREE),
      NULL_TREE, false, true, true, NULL, Empty);
   /* Avoid creating superfluous edges to __builtin_setjmp receivers.  */
-  DECL_IS_PURE (get_excptr_decl) = 1;
+  DECL_PURE_P (get_excptr_decl) = 1;
 
   /* Functions that raise exceptions. */
   raise_nodefer_decl
@@ -4467,7 +4467,7 @@ handle_pure_attribute (tree *node, tree name, tree ARG_UNUSED (args),
                       int ARG_UNUSED (flags), bool *no_add_attrs)
 {
   if (TREE_CODE (*node) == FUNCTION_DECL)
-    DECL_IS_PURE (*node) = 1;
+    DECL_PURE_P (*node) = 1;
   /* ??? TODO: Support types.  */
   else
     {