From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 23 Dec 2020 09:40:30 +0000 (+0100)
Subject: [Ada] Remove confusing warning on type export
X-Git-Tag: basepoints/gcc-13~7955
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c695d23dde02fbc5c748c7182d223813a4bcab4d;p=thirdparty%2Fgcc.git

[Ada] Remove confusing warning on type export

gcc/ada/

	* sem_prag.adb (Set_Exported): Do not warn on exporting a type.
---

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 6e209d4a3d31..51928436824c 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -10934,10 +10934,6 @@ package body Sem_Prag is
             end if;
          end if;
 
-         if Warn_On_Export_Import and then Is_Type (E) then
-            Error_Msg_NE ("exporting a type has no effect?x?", Arg, E);
-         end if;
-
          if Warn_On_Export_Import and Inside_A_Generic then
             Error_Msg_NE
               ("all instances of& will have the same external name?x?",