[Ada] Add missing stride entry in debug info

[Eric Botcazou]

This adds a missing stride entry for bit-packed arrays of record types.

Tested on x86_64-suse-linux, applied on the mainline.


2020-09-11  Eric Botcazou  <ebotca...@adacore.com>

        * gcc-interface/misc.c (get_array_bit_stride): Return TYPE_ADA_SIZE
        for record and union types.

-- 
Eric Botcazou
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index e6a563e3666..781868e2ad3 100644
--- a/gcc/ada/gcc-interface/misc.c
+++ b/gcc/ada/gcc-interface/misc.c
@@ -1003,6 +1003,10 @@ get_array_bit_stride (tree comp_type)
   if (INTEGRAL_TYPE_P (comp_type))
     return TYPE_RM_SIZE (comp_type);
 
+  /* Likewise for record or union types.  */
+  if (RECORD_OR_UNION_TYPE_P (comp_type) && !TYPE_FAT_POINTER_P (comp_type))
+    return TYPE_ADA_SIZE (comp_type);
+
   /* The gnat_get_array_descr_info debug hook expects a debug tyoe.  */
   comp_type = maybe_debug_type (comp_type);