decl.c (gnat_to_gnu_entity): Also set the public flag if the procedure is imported.

	* decl.c (gnat_to_gnu_entity) <E_Procedure>: Also set the public flag
	if the procedure is imported.

From-SVN: r133650

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7d0880d5008a14d1c5fc7fe7ec7f00465ef7cee1..9a2e07f8d9af706c3e4f0481be70bc1aa9276c39 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-27  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * decl.c (gnat_to_gnu_entity) <E_Procedure>: Also set the public flag
+       if the procedure is imported.
+
 2008-03-26  Arnaud Charlet  <charlet@adacore.com>
 
        * adaint.c: Fix warnings.
@@ -22,8 +27,7 @@
 
 2008-03-26  Thomas Quinot  <quinot@adacore.com>
 
-PR ada/33688
-
+       PR ada/33688
        * g-socket.ads, g-socket.adb (Options, Set_Socket_Option,
        Get_Socket_Option): Add support for Receive_Packet_Info.
 

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 0db79b576464fdf09a3cad9bb0c4d010c7212d19..88198745fa892ca4e6a976f40a3560fce04c4583 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -3550,7 +3550,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
        tree gnu_ext_name = create_concat_name (gnat_entity, NULL);
        Entity_Id gnat_param;
        bool inline_flag = Is_Inlined (gnat_entity);
-       bool public_flag = Is_Public (gnat_entity);
+       bool public_flag = Is_Public (gnat_entity) || imported_p;
        bool extern_flag
          = (Is_Public (gnat_entity) && !definition) || imported_p;
        bool pure_flag = Is_Pure (gnat_entity);