diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-16 22:54:13 +0100 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:12:04 -0300 |
| commit | 4001b2b73e0dad52127a25897173756021f66336 (patch) | |
| tree | e8d58827934d9bae8711e9d45f56d94094d72851 /gcc | |
| parent | e2abccc6317fa77a122ea25e7533a1ab5e3e9784 (diff) | |
| download | gcc-4001b2b73e0dad52127a25897173756021f66336.zip gcc-4001b2b73e0dad52127a25897173756021f66336.tar.gz gcc-4001b2b73e0dad52127a25897173756021f66336.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_disp.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index c897574..617cb1b 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 => |