From 6dc5653584ca84f7d396dd2aa8b65070a1c1f7e1 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 16 Mar 2020 22:54:13 +0100 Subject: [PATCH] [Ada] Make Object Specific Dispatch tables constant 2020-06-11 Piotr Trojanek gcc/ada/ * exp_disp.adb (Make_Secondary_DT): Internally generated OSD tables are now constant. --- gcc/ada/exp_disp.adb | 1 + 1 file changed, 1 insertion(+) 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 => -- 2.30.2