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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e55245590c829bef
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,UTF8
Path: 
 g2news2.google.com!news1.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx01.iad01.newshosting.com!newshosting.com!83.128.0.12.MISMATCH!news-out2.kabelfoon.nl!newsfeed.kabelfoon.nl!bandi.nntp.kabelfoon.nl!feeder.news-service.com!94.75.214.39.MISMATCH!aioe.org!not-for-mail
From: =?utf-8?Q?Yannick_Duch=C3=AAne_=28Hibou57?=
 =?utf-8?Q?=29?=
 <yannick_duchene@yahoo.fr>
Newsgroups: comp.lang.ada
Subject: Re: _Type vs no _Type
Date: Wed, 03 Nov 2010 22:19:53 +0100
Organization: Ada @ Home
Message-ID: <op.vll5jfzqule2fv@garhos>
References: <86wroy58ff.fsf@gareth.avalon.lan>
 <iale5p$2f6$1@tornado.tornevall.net> <86pqup5xfy.fsf@gareth.avalon.lan>
 <becbd7a4-89e6-4d81-b7d8-7d18ac75c1f9@j2g2000yqf.googlegroups.com>
 <86y69d3rec.fsf@gareth.avalon.lan> <ian4b2$p9h$1@tornado.tornevall.net>
 <82lj5c5ecm.fsf@stephe-leake.org> <iapnmm$p5j$1@tornado.tornevall.net>
 <op.vlj5fgv0ule2fv@garhos> <m24obz1nkj.fsf@pushface.org>
 <82zktq4n9b.fsf_-_@stephe-leake.org> <op.vll5c50oule2fv@garhos>
NNTP-Posting-Host: 4vQNEkQz8jPZLol/IaLwBQ.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed; delsp=yes
Content-Transfer-Encoding: Quoted-Printable
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
User-Agent: Opera Mail/10.63 (Win32)
Xref: g2news2.google.com comp.lang.ada:16156
Date: 2010-11-03T22:19:53+01:00
List-Id: <comp.lang.ada>

Le Wed, 03 Nov 2010 22:16:07 +0100, Yannick Duch=C3=AAne (Hibou57)  =

<yannick_duchene@yahoo.fr> a =C3=A9crit:
> Now, using a renaming of Any_Package inside of itself :
>
>
>     with Ada.Text_IO;
>
>     -- Game: guess what is wrong with that program.
>
>     procedure Test is
>
>        package Any_Package is
>
>           package Types renames Any_Package;
>
>           type Foo is private;
>           procedure Play_The_Foo_With_Me
>             (Foo : Types.Foo);
>        private
>           Type Foo is new Integer;
>        end Any_Package;

But there is still a problem if the package wants to define a function  =

named Foo

So here again, =E2=80=9C_Type =E2=80=9D is a more applicable solution.

-- =

Si les chats miaulent et font autant de vocalises bizarres, c=E2=80=99es=
t pas pour  =

les chiens.