ada: Fix wrong access for qualified aggregate with storage model
commit0a51ab54b7cfcb1c6bb004230e02280408f55083
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 12 Apr 2023 17:18:24 +0000 (12 19:18 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 30 May 2023 07:12:18 +0000 (30 09:12 +0200)
treefbac5aaf0c24fd601e4a7ff492ca5b0e64bc7b6b
parentf10dc1d2f1befa917568e20d792152789c784d42
ada: Fix wrong access for qualified aggregate with storage model

The previous fix to get_storage_model_access was incomplete and needs to be
extended to the node itself.

gcc/ada/

* gcc-interface/trans.cc (get_storage_model_access): Also strip any
type conversion in the node when unwinding the components.
gcc/ada/gcc-interface/trans.cc