diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2006-09-29 06:52:04 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2006-09-29 06:52:04 +0000 |
| commit | b55e7f34bc21a482d35dc2a9eaf38a878e0afbe4 (patch) | |
| tree | d53b9b08a5977db3599ce6576e9b27bd13562c90 /gcc/ada/utils.c | |
| parent | 4f6c213142e5ce6f5ee17ef5d0f1cb85cd0ff573 (diff) | |
| download | gcc-b55e7f34bc21a482d35dc2a9eaf38a878e0afbe4.zip gcc-b55e7f34bc21a482d35dc2a9eaf38a878e0afbe4.tar.gz gcc-b55e7f34bc21a482d35dc2a9eaf38a878e0afbe4.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Do not set "const" flag on "pure" Ada subprograms if SJLJ exceptions are used.
* decl.c (gnat_to_gnu_entity) <E_Procedure>: Do not set "const" flag
on "pure" Ada subprograms if SJLJ exceptions are used.
* trans.c (Handled_Sequence_Of_Statements_to_gnu): Set TREE_NO_WARNING
on the declaration node of JMPBUF_SAVE.
* utils.c (init_gigi_decls): Set DECL_IS_PURE on the declaration nodes
of Get_Jmpbuf_Address_Soft and Get_GNAT_Exception.
* utils2.c (build_call_0_expr): Do not set TREE_SIDE_EFFECTS.
From-SVN: r117299
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 4358547..3874e39 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -518,6 +518,8 @@ init_gigi_decls (tree long_long_float_type, tree exception_type) (get_identifier ("system__soft_links__get_jmpbuf_address_soft"), 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; set_jmpbuf_decl = create_subprog_decl @@ -534,6 +536,8 @@ init_gigi_decls (tree long_long_float_type, tree exception_type) NULL_TREE, 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; /* Functions that raise exceptions. */ raise_nodefer_decl |