diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-04-07 18:03:16 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-30 09:12:18 +0200 |
| commit | f10dc1d2f1befa917568e20d792152789c784d42 (patch) | |
| tree | 114c3000c7fdf59d657b898c17990242170e60fa /gcc/rtl.h | |
| parent | 8868ed495ffac3cdbe067bbc43be4c4f968581a9 (diff) | |
| download | gcc-f10dc1d2f1befa917568e20d792152789c784d42.zip gcc-f10dc1d2f1befa917568e20d792152789c784d42.tar.gz gcc-f10dc1d2f1befa917568e20d792152789c784d42.tar.bz2 | |
ada: Fix internal error on qualified aggregate with storage model
It comes from a small oversight in get_storage_model_access.
gcc/ada/
* gcc-interface/trans.cc (node_is_component): Remove parentheses.
(node_is_type_conversion): New predicate.
(get_atomic_access): Use it.
(get_storage_model_access): Likewise and look into the parent to
find a component if it returns true.
(present_in_lhs_or_actual_p): Likewise.
Diffstat (limited to 'gcc/rtl.h')
0 files changed, 0 insertions, 0 deletions