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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5c4073b66dd0e720
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!tiscali!newsfeed1.ip.tiscali.net!proxad.net!proxad.net!newsfeed.arcor.de!newsspool2.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Newsgroups: comp.lang.ada
Subject: Re: strange warning: "return" statement missing following?
From: Georg Bauhaus <bauhaus@futureapps.de>
In-Reply-To: <pan.2007.01.21.09.01.49.711806@snafu.de>
References: <pan.2007.01.21.09.01.49.711806@snafu.de>
Content-Type: multipart/signed; micalg=pgp-sha1;
 protocol="application/pgp-signature"; boundary="=-z70xCNNOfYNrIE6MOtgv"
Message-ID: <1169841216.9913.2.camel@localhost>
Mime-Version: 1.0
X-Mailer: Evolution 2.6.1 
Date: Fri, 26 Jan 2007 20:53:36 +0100
Organization: Arcor
NNTP-Posting-Date: 26 Jan 2007 20:53:36 CET
NNTP-Posting-Host: 45c2c04c.newsspool2.arcor-online.net
X-Trace: 
 DXC=oW];:XE8Pn;Tia]Ho99G50A9EHlD;3Yc24Fo<]lROoR1Fl8W>\BH3Y2WaHSg1@9;20N[W<lHX`=B4\6BhD5G6\i<J;?[f@O1969
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:8608
Date: 2007-01-26T20:53:36+01:00
List-Id: <comp.lang.ada>


--=-z70xCNNOfYNrIE6MOtgv
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

On Sun, 2007-01-21 at 10:01 +0100, GNADE proejct account wrote:
> Dear all,
>=20
> when i am compiling my code, i get the following error:
>=20
> cache.adb:82:04: warning: in instantiation at
> util-dynamic_hashtable.adb:310 cache.adb:82:04: warning: "return"
> statement missing following this statement cache.adb:82:04: warning:
> Program_Error may be raised at run time
>=20
> the offending lines in util-dynamic_hash.adb are:
>=20
>    function Get_Root(                                 <--- Line 310
>       This : in Object ) return Key_List_Access is Data :
>       Object_Data_Access renames This.Data; I    : Iterator_Type ;
>    begin
>       I.Reset( Get( Data.Root ) );
>=20
>       return I.First;
>    end Get_Root ;
>=20
> I have no idea what the compiler is complaining about! Any Idea?
>=20

The reason for the compiler message appear to have to do
with the Iterator_Type being protected.

When I changed it to be just limited in a local copy,
and modified the protected subprograms accordingly,
a small test program compiles and runs as expected
(I think). Both changes and test file are on the way via
private email.

 -- Georg=20


--=-z70xCNNOfYNrIE6MOtgv
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: This is a digitally signed message part

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2.2 (GNU/Linux)

iD8DBQBFulxAZkHTRMS+9qsRAqRrAJ9VgtBrMqM+gEblX1M72TZmnVjbsQCg5Ym0
bUa9KUjDpeDB4IL2F8YAXDs=
=AoKV
-----END PGP SIGNATURE-----

--=-z70xCNNOfYNrIE6MOtgv--