From 43f69ac8b2d08a18497e124422cbb6031539421c Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 13 Jan 2021 12:53:21 +0100 Subject: [PATCH] [Ada] Detect unchecked union components with fully qualified names gcc/ada/ * exp_ch4.adb (Component_Is_Unconstrained_UU): Detect both qualified and unqualified names of unchecked union components. --- gcc/ada/exp_ch4.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index ca23727..e8fa5a8 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -8154,7 +8154,7 @@ package body Exp_Ch4 is -- Unconstrained nominal type. In the case of a constraint -- present, the node kind would have been N_Subtype_Indication. - if Nkind (Sindic) = N_Identifier then + if Nkind (Sindic) in N_Expanded_Name | N_Identifier then return Is_Unchecked_Union (Base_Type (Etype (Sindic))); end if; -- 2.7.4