[Ada] Incorrect runtime accessibility check on access discriminant
authorJustin Squirek <squirek@adacore.com>
Fri, 23 Oct 2020 15:31:07 +0000 (11:31 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 26 Nov 2020 08:39:45 +0000 (03:39 -0500)
commitb6735a100492c020a27b31b11152630d04420d93
tree6534f0649832a60cbf6798f3a03065f2e671e418
parentadfa6cb8e4cf282524cb42a2a10bb6d52edf1e84
[Ada] Incorrect runtime accessibility check on access discriminant

gcc/ada/

* exp_ch4.adb (Expand_N_Type_Conversion): Use the unexpanded
operand when generating accessibility checks.
gcc/ada/exp_ch4.adb