diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-05-08 11:11:05 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@gcc.gnu.org> | 2008-05-08 11:11:05 +0000 |
| commit | a1b6607115feb11d2d36f7e62ed0dae17f7fe88c (patch) | |
| tree | d9a6b6a8bd3048c53812a5455b5232ce59ecbf66 /gcc/ada | |
| parent | 5611cf0bf55f808d6f33fdf3ba44e9cbdfa1788b (diff) | |
| download | gcc-a1b6607115feb11d2d36f7e62ed0dae17f7fe88c.zip gcc-a1b6607115feb11d2d36f7e62ed0dae17f7fe88c.tar.gz gcc-a1b6607115feb11d2d36f7e62ed0dae17f7fe88c.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ae31fb4..5da66e0 100644 --- 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 8d3df68..1cce8da 100644 --- 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 { |