diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-03-13 23:01:54 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-30 09:12:18 +0200 |
| commit | 0a769b29ee0beef9998f7694894b6c8f5aa93e6a (patch) | |
| tree | 96504d0d8b973194b7efd008812fe0f636a833fa /gcc/rtl.h | |
| parent | 0e58d85c40223fcdde298aaa443d8d5f7863ab16 (diff) | |
| download | gcc-0a769b29ee0beef9998f7694894b6c8f5aa93e6a.zip gcc-0a769b29ee0beef9998f7694894b6c8f5aa93e6a.tar.gz gcc-0a769b29ee0beef9998f7694894b6c8f5aa93e6a.tar.bz2 | |
ada: Fix bogus Storage_Error on dynamic array with static zero length
This works around the limitations present for the support of arrays in the
middle-end by clearing the TREE_OVERFLOW flag for arrays with zero length.
gcc/ada/
* gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Array_Type>: Use a
local variable for the GNAT index type.
<E_Array_Subtype>: Likewise. Call Is_Null_Range on the bounds and
force the zero on TYPE_SIZE and TYPE_SIZE_UNIT if it returns true.
Diffstat (limited to 'gcc/rtl.h')
0 files changed, 0 insertions, 0 deletions