diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index e456cc63373..e0e5cfe4de2 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3330,6 +3330,9 @@ finish_subprog_decl (tree decl, tree asm_name, tree type) /* Propagate the "const" property. */ TREE_READONLY (decl) = TYPE_READONLY (type); + /* Propagate the "pure" property. */ + DECL_PURE_P (decl) = TYPE_RESTRICT (type); + /* Propagate the "noreturn" property. */ TREE_THIS_VOLATILE (decl) = TYPE_VOLATILE (type); |