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: releases/gcc-11.2.0~89
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e6c7e45bfdd2b910e9001f3e27ebb86062d96534;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 952f032072b7..bfacb0eaeb43 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);