| commit | f10dc1d2f1befa917568e20d792152789c784d42 | |
| author | Eric Botcazou <ebotcazou@adacore.com> | |
| Fri, 7 Apr 2023 16:03:16 +0000 (7 18:03 +0200) | ||
| committer | Marc Poulhiès <poulhies@adacore.com> | |
| Tue, 30 May 2023 07:12:18 +0000 (30 09:12 +0200) | ||
| tree | 114c3000c7fdf59d657b898c17990242170e60fa | treesnapshot (tar.gz zip) |
| parent | 8868ed495ffac3cdbe067bbc43be4c4f968581a9 | commitdiff |
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.
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.
| gcc/ada/gcc-interface/trans.cc | diffblobblamehistory |