From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d512bc9ad511cd93,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-12-16 06:55:50 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!newsfeed.mesh.ad.jp!osa.uu.net!dfw.uu.net!ffx.uu.net!newshub.ip.pt!newsserver.ip.pt.POSTED!not-for-mail
From: Antonio Vargas <antonio.vargas@clix.pt>
Subject: Non private & private Import
Newsgroups: comp.lang.ada
Reply-To: antonio.vargas@clix.pt
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8Bit
User-Agent: KNode/0.3.3
Organization: (none given)
Message-ID: <976978132.359056@tubarao.ip.pt>
Cache-Post-Path: tubarao.ip.pt!unknown@195-23-222-88.nr.ip.pt
X-Cache: nntpcache 2.3.3 (see http://www.nntpcache.org/)
Date: Sat, 16 Dec 2000 13:48:42 +0000
NNTP-Posting-Host: 195.23.135.20
X-Trace: newsserver.ip.pt 976978132 195.23.135.20 (Sat,
 16 Dec 2000 14:48:52 WET)
NNTP-Posting-Date: Sat, 16 Dec 2000 14:48:52 WET
Xref: supernews.google.com comp.lang.ada:3203
Date: 2000-12-16T13:48:42+00:00
List-Id: <comp.lang.ada>


Hi.

What are the advantages/disadvantages of

--  First version

package Imp_Xfuncs is
   function Example (num : C.int) return C.int;
   pragma Import (C, Example, "the_example");     -- Non private "Import"
end Imp_Xfuncs;


--  Second version

package Imp_Xfuncs is
   function Example (num : C.int) return C.int;
private
   pragma Import (C, Example, "the_example");   -- Private "Import"
end Imp_Xfuncs;

Thanks in advance 

Antonio Vargas