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=-2.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Thread: 103376,f8ae7c8799572552 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news4.google.com!news.glorb.com!fr.ip.ndsoftware.net!nerim.net!usenet-fr.net!enst.fr!melchior!cuivre.fr.eu.org!melchior.frmug.org!not-for-mail From: =?iso-8859-1?q?Bj=F6rn_Lundin?= Newsgroups: comp.lang.ada Subject: Re: test with task Date: Thu, 25 Nov 2004 22:07:56 +0100 Organization: Cuivre, Argent, Or Message-ID: References: <211db0ae.0411230312.48f36e70@posting.google.com> <1wLod.2062$NU3.1411@newsread1.news.pas.earthlink.net> <1101379922.259456.11270@c13g2000cwb.googlegroups.com> NNTP-Posting-Host: lovelace.ada-france.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable X-Trace: melchior.cuivre.fr.eu.org 1101416909 16774 212.85.156.195 (25 Nov 2004 21:08:29 GMT) X-Complaints-To: usenet@melchior.cuivre.fr.eu.org NNTP-Posting-Date: Thu, 25 Nov 2004 21:08:29 +0000 (UTC) To: comp.lang.ada@ada-france.org Return-Path: User-Agent: KMail/1.7 In-Reply-To: <1101379922.259456.11270@c13g2000cwb.googlegroups.com> Content-Disposition: inline X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at ada-france.org X-BeenThere: comp.lang.ada@ada-france.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Gateway to the comp.lang.ada Usenet newsgroup" List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Xref: g2news1.google.com comp.lang.ada:6485 Date: 2004-11-25T22:07:56+01:00 torsdag 25 november 2004 11:52 skrev mferracini: > Jeffrey Carter wrote: > > > type N_array is array (1..10) of Dummy; > > > > type N_Array is array (1 .. 10) of Bar.Dummy; > > foo.adb:10:40 "dummy" is not a visible entity of "bar" Move the declaration of dummy to bar spec as in package Foo is =A0 =A0package Bar is type Dummy is new Integer; =A0 =A0 =A0 procedure nulla; =A0 =A0end Bar; end Foo; =20 package body Foo is =A0 =A0package body Bar is =2D- moved to spec =A0 =A0 =A0 type Dummy is new Integer; =A0 =A0 =A0 procedure Nulla is =A0 =A0 =A0 =A0 =A0X : Dummy; =A0 =A0 =A0 begin =A0 =A0 =A0 =A0 =A0X:=3D1; =A0 =A0 =A0 end Nulla; =A0 =A0end Bar; type N_Array is array (1 .. 10) of Bar.Dummy; end Foo; /Bj=F6rn > > _______________________________________________ > comp.lang.ada mailing list > comp.lang.ada@ada-france.org > http://www.ada-france.org/mailman/listinfo/comp.lang.ada