Add missing stride entry in debug info

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

gcc/ada/ChangeLog:
	* gcc-interface/misc.c (get_array_bit_stride): Return TYPE_ADA_SIZE
	for record and union types.
This commit is contained in:
Eric Botcazou 2020-09-11 11:13:54 +02:00
parent 230e0dbdcb
commit b5ffd55a61

View File

@ -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);