[gcc/devel/autopar_devel] Fix small fallout of earlier change

[gcc/devel/autopar_devel] Fix small fallout of earlier change

[Giuliano Belinassi]

https://gcc.gnu.org/g:f73b5fa1bbe45d59049157d08d3fe83576216cd8

commit f73b5fa1bbe45d59049157d08d3fe83576216cd8
Author: Eric Botcazou <ebotcazou@gcc.gnu.org>
Date:   Mon May 25 10:32:21 2020 +0200

    Fix small fallout of earlier change
    
    gcc/ada/ChangeLog
            * gcc-interface/misc.c (get_array_bit_stride): Get to the debug type,
            if any, before calling gnat_get_array_descr_info.

Diff:
---
 gcc/ada/ChangeLog            | 5 +++++
 gcc/ada/gcc-interface/misc.c | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 769728af854..d2020b8894c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2020-05-25  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/misc.c (get_array_bit_stride): Get to the debug type,
+	if any, before calling gnat_get_array_descr_info.
+
 2020-05-25  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: Tidy up.
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index 5a5850a85e0..f8fa8563161 100644
--- a/gcc/ada/gcc-interface/misc.c
+++ b/gcc/ada/gcc-interface/misc.c
@@ -1003,6 +1003,9 @@ get_array_bit_stride (tree comp_type)
   if (INTEGRAL_TYPE_P (comp_type))
     return TYPE_RM_SIZE (comp_type);
 
+  /* The gnat_get_array_descr_info debug hook expects a debug tyoe.  */
+  comp_type = maybe_debug_type (comp_type);
+
   /* Otherwise, see if this is an array we can analyze; if it's not, punt.  */
   memset (&info, 0, sizeof (info));
   if (!gnat_get_array_descr_info (comp_type, &info) || !info.stride)