diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-09-22 04:50:22 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-27 05:19:29 -0400 |
| commit | b36ec51873ba05c1ac3d5e568f400dd5f59d2cb9 (patch) | |
| tree | 35ddaddad9cedf0c65c165d12ad81c68eba0b2fb /gcc/ada/freeze.adb | |
| parent | 79e61a6361f87a8162fe362e08d3ffeb76803606 (diff) | |
| download | gcc-b36ec51873ba05c1ac3d5e568f400dd5f59d2cb9.zip gcc-b36ec51873ba05c1ac3d5e568f400dd5f59d2cb9.tar.gz gcc-b36ec51873ba05c1ac3d5e568f400dd5f59d2cb9.tar.bz2 | |
[Ada] New flag Transform_Function_Array
gcc/ada/
* exp_ch6.adb, freeze.adb, gnat1drv.adb, opt.ads, sem_ch6.adb
(Transform_Function_Array): New flag, split from Modify_Tree_For_C.
* exp_unst.adb: Minor reformatting.
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 05a43c7..0779165 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -9142,7 +9142,7 @@ package body Freeze is Check_Overriding_Indicator (E, Empty, Is_Primitive (E)); end if; - if Modify_Tree_For_C + if Transform_Function_Array and then Nkind (Parent (E)) = N_Function_Specification and then Is_Array_Type (Etype (E)) and then Is_Constrained (Etype (E)) |