diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-06-29 10:28:00 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-16 03:31:28 -0400 |
| commit | b87042ccc5d066af9de71e215364d40959e11849 (patch) | |
| tree | dd2bcc3095146adc5e196ffad02e8378f58ea4f0 /gcc/ada/sem_util.adb | |
| parent | 3d5f1f27a78e7379a8bcb31e52f625b4a535c78a (diff) | |
| download | gcc-b87042ccc5d066af9de71e215364d40959e11849.zip gcc-b87042ccc5d066af9de71e215364d40959e11849.tar.gz gcc-b87042ccc5d066af9de71e215364d40959e11849.tar.bz2 | |
[Ada] Detect qualified type names for AI12-0027
gcc/ada/
* sem_util.adb (Is_View_Conversion): Detect qualified types.
* sem_util.ads (Is_Actual_In_Out_Parameter): Fix style in
comment.
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 9b67a45..1fcbfa1 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -19641,7 +19641,7 @@ package body Sem_Util is function Is_View_Conversion (N : Node_Id) return Boolean is begin if Nkind (N) = N_Type_Conversion - and then Nkind (Unqual_Conv (N)) = N_Identifier + and then Nkind (Unqual_Conv (N)) in N_Expanded_Name | N_Identifier then if Is_Tagged_Type (Etype (N)) and then Is_Tagged_Type (Etype (Unqual_Conv (N))) |