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,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,73057f1a3ca11607
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!news.netcologne.de!newsfeed-fusi.netcologne.de!194.25.134.126.MISMATCH!newsfeed01.sul.t-online.de!newsmm00.sul.t-online.de!t-online.de!news.t-online.com!not-for-mail
From: Martin Krischik <krischik@users.sourceforge.net>
Newsgroups: comp.lang.ada
Subject: Re: record extension aggregate for returned type legal?
Date: Tue, 12 Oct 2004 10:04:22 +0200
Organization: AdaCL
Message-ID: <1738418.atIT6LYH9Z@linux1.krischik.com>
References: <ckfc4r$lsv$1@a1-hrz.uni-duisburg.de>
Reply-To: krischik@users.sourceforge.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
X-Trace: news.t-online.com 1097571567 03 1631 fGPoXFkO2E1QFTB 041012 08:59:27
X-Complaints-To: usenet-abuse@t-online.de
X-ID: SPtAPaZcoemhHWKs0fS6EQye8j7Tl-BbVgMimquq9JWNjW3pEeBGEj
User-Agent: KNode/0.8.0
Xref: g2news1.google.com comp.lang.ada:5077
Date: 2004-10-12T10:04:22+02:00
List-Id: <comp.lang.ada>

Georg Bauhaus wrote:

> Using two different compilers, I get contradicting messages
> for the following package, viz no message at all, and an
> error message pointing to LRM 4.3.2(4). Which one is right?
> 
> 
> package Ext is
> 
>    type T is tagged private;
> 
>    package B is
>       function make return T;
>    end B;
> 
> private
>    type T is tagged record
>       n: Natural;
>    end record;
> end Ext;
> 
> 
> 
> package body Ext is
> 
>    package body B is
>       function make return T is
>       begin
>          return (T with n => 0);  -- here

This syntax is for child classes which first initialise there parent class
and then there own data. Like in:

return Child'(Parent with n=> 0);

>          --return (n => 0);

Should that not be

      return T'(n => 0);

?

>       end make;
> 
>    end B;
> 
> end Ext;
> 

With Regards

Martin
-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com