From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 16 Mar 2020 21:54:13 +0000 (+0100)
Subject: [Ada] Make Object Specific Dispatch tables constant
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6dc5653584ca84f7d396dd2aa8b65070a1c1f7e1;p=gcc.git

[Ada] Make Object Specific Dispatch tables constant

2020-06-11  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* exp_disp.adb (Make_Secondary_DT): Internally generated OSD
	tables are now constant.
---

diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index c8975749b58..617cb1be7bd 100644
--- a/gcc/ada/exp_disp.adb
+++ b/gcc/ada/exp_disp.adb
@@ -4310,6 +4310,7 @@ package body Exp_Disp is
             Append_To (Result,
               Make_Object_Declaration (Loc,
                 Defining_Identifier => OSD,
+                Constant_Present    => True,
                 Object_Definition   =>
                   Make_Subtype_Indication (Loc,
                     Subtype_Mark =>