diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-10-11 08:33:03 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-10-11 08:33:03 +0000 |
| commit | 43b60e578393cc58f1d75387b811cc90bc74297b (patch) | |
| tree | 23e1408fc88f516c0134fab884a79f2b079af7da /gcc/ada/gcc-interface/decl.c | |
| parent | 104099b897fe28c5d28b81a83d7655ea3b91c0c8 (diff) | |
| download | gcc-43b60e578393cc58f1d75387b811cc90bc74297b.zip gcc-43b60e578393cc58f1d75387b811cc90bc74297b.tar.gz gcc-43b60e578393cc58f1d75387b811cc90bc74297b.tar.bz2 | |
decl.c (Gigi_Equivalent_Type): New case.
* gcc-interface/decl.c (Gigi_Equivalent_Type) <E_Array_Subtype>: New
case. Return the base type if the subtype is not constrained.
From-SVN: r276865
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 4878f5e..2529824 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -5026,6 +5026,11 @@ Gigi_Equivalent_Type (Entity_Id gnat_entity) gnat_equiv = Etype (gnat_entity); break; + case E_Array_Subtype: + if (!Is_Constrained (gnat_entity)) + gnat_equiv = Etype (gnat_entity); + break; + case E_Class_Wide_Type: gnat_equiv = Root_Type (gnat_entity); break; |