ada: Fix another couple of unchecked conversions to Ada.Tags.Tag
commitd6dcb41d8f402ae356cb0890598d77c22c42fb21
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 15 Mar 2023 12:56:33 +0000 (15 13:56 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 26 May 2023 07:29:15 +0000 (26 09:29 +0200)
tree7a1625c50e3500f250da1ee707996dd60c2af0e8
parentda59893d855a2d10e9c94b57c9b2d4d91f05a140
ada: Fix another couple of unchecked conversions to Ada.Tags.Tag

They are problematic on platforms where the provenance of pointers must be
tracked throughout their lifetime.

gcc/ada/

* exp_sel.adb: Add clauses for Sem_Util, remove them for Opt, Sinfo
and Sinfo.Nodes.
(Build_K): Always use 'Tag of the object.
(Build_S_Assignment): Likewise.
gcc/ada/exp_sel.adb