diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-07-09 18:30:54 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-07-09 18:31:52 +0200 |
| commit | 511cec029c6592ee553d9087d8b2bbf7719cf30d (patch) | |
| tree | 85c07f73012bd6761edefdef26e1ec8fbff0349e /gcc/ada | |
| parent | 37e65643d3e32d33bb6c9d15c678a627d1682626 (diff) | |
| download | gcc-511cec029c6592ee553d9087d8b2bbf7719cf30d.zip gcc-511cec029c6592ee553d9087d8b2bbf7719cf30d.tar.gz gcc-511cec029c6592ee553d9087d8b2bbf7719cf30d.tar.bz2 | |
Missing piece in earlier change
gcc/ada/
* gcc-interface/utils.c (finish_subprog_decl): Remove obsolete line.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 982274c..535f4ca 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3543,9 +3543,6 @@ finish_subprog_decl (tree decl, tree asm_name, tree type) DECL_BY_REFERENCE (result_decl) = TREE_ADDRESSABLE (type); DECL_RESULT (decl) = result_decl; - /* Propagate the "const" property. */ - TREE_READONLY (decl) = TYPE_READONLY (type); - /* Propagate the "pure" property. */ DECL_PURE_P (decl) = TYPE_RESTRICT (type); |