diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2020-05-25 10:32:21 +0200 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:04:15 -0300 |
| commit | f73b5fa1bbe45d59049157d08d3fe83576216cd8 (patch) | |
| tree | 93bb87bacee51eea66c35ad4a0dccb359e5578e3 /gcc/ada/gcc-interface/misc.c | |
| parent | 0ee8729e60dbc048c2bb82f906aa3b7adc61d216 (diff) | |
| download | gcc-f73b5fa1bbe45d59049157d08d3fe83576216cd8.zip gcc-f73b5fa1bbe45d59049157d08d3fe83576216cd8.tar.gz gcc-f73b5fa1bbe45d59049157d08d3fe83576216cd8.tar.bz2 | |
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.
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 5a5850a..f8fa856 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) |