From c56094bda771cc3bc600347812f9fcc211764f67 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 22 Aug 2008 15:25:08 +0200 Subject: [PATCH] sem_ch8.adb (Use_One_Type): Do not emit warning message about redundant use_type_clause in an instance. 2008-08-22 Ed Schonberg * sem_ch8.adb (Use_One_Type): Do not emit warning message about redundant use_type_clause in an instance. From-SVN: r139457 --- gcc/ada/sem_ch8.adb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index cf9a3877bf5..96eac0e1785 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -7054,8 +7054,12 @@ package body Sem_Ch8 is -- as use visible. The analysis then reinstalls the spec along with -- its context. The use clause P.T is now recognized as redundant, -- but in the wrong context. Do not emit a warning in such cases. + -- Do not emit a warning either if we are in an instance, there + -- is no redundancy between an outer use_clause and one that appears + -- within the generic. and then not Spec_Reloaded_For_Body + and then not In_Instance then -- The type already has a use clause -- 2.30.2