From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 9 Jul 2021 16:30:54 +0000 (+0200)
Subject: Missing piece in earlier change
X-Git-Tag: basepoints/gcc-13~6089
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=511cec029c6592ee553d9087d8b2bbf7719cf30d;p=thirdparty%2Fgcc.git

Missing piece in earlier change

gcc/ada/
	* gcc-interface/utils.c (finish_subprog_decl): Remove obsolete line.
---

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 982274c6d771..535f4ca7fbac 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);