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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,282b5866984b4264,start
X-Google-Attributes: gid103376,public
From: lynch@cci.de
Subject: Renaming of overridden subprogram required?
Date: 1998/08/06
Message-ID: <6qbr1n$ulb$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 378462235
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Thu Aug 06 08:55:20 1998 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/3.0 (WinNT; I)
Date: 1998-08-06T00:00:00+00:00
List-Id: <comp.lang.ada>

Hi,

we have some code similar to the following, which compiles fine under Gnat,
however Rational Apex wants an extra renaming:

package A is

   type Foo is Ada.Finalization.Controlled with private;
   ...
   type Ref is new Foo with private;
   ...
   function One (x : integer) return Ref;
   function Two (x : integer) return Ref renames One;
   ...
end A;

with A;
package B is

   type Ref is new A.Ref with null record;
   ...
      -- I know this is necessary, even though the
      -- bodies of A.One and B.One are identical
   function One (x : integer) return Ref;

      -- Rational Apex additionally requires this,
      -- Gnat does not!?!:
   function Two (x : integer) return Ref renames One;
   ...
end B;

If B.Two is not present Rational Apex quotes RM 3.9.3(6), however
Gnat seems quite happy.

Is Gnat being really nice and providing B.Two "for free", or have
we missed something?

Andrew.

P.S. Excuse the Deja News posting, our news server is rather screwed
up at the moment... :-(

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum