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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5b0235b23a9db0f2
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-01-21 10:29:38 PST
Path: 
 supernews.google.com!sn-xit-02!sn-xit-01!supernews.com!newsfeed.stanford.edu!news.tele.dk!130.133.1.3!fu-berlin.de!uni-berlin.de!ppp-1-214.5800-8.access.uk.worldonline.COM!not-for-mail
From: "Nick Roberts" <nickroberts@callnetuk.com>
Newsgroups: comp.lang.ada
Subject: Re: Extensible Enummerated types FW: When will next Ada revision be?
 (83, 95, ?)
Date: Sun, 21 Jan 2001 17:47:25 -0000
Message-ID: <94f9qf$dc4s7$1@ID-25716.news.dfncis.de>
References: <mailman.979975693.13263.comp.lang.ada@ada.eu.org>
 <94c61v$h4a$1@nnrp1.deja.com> <t6jeim807fic0a@corp.supernews.com>
NNTP-Posting-Host: ppp-1-214.5800-8.access.uk.worldonline.com (62.64.163.214)
X-Trace: fu-berlin.de 980101776 14029703 62.64.163.214 (16 [25716])
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Xref: supernews.google.com comp.lang.ada:4270
Date: 2001-01-21T17:47:25+00:00
List-Id: <comp.lang.ada>

I like this idea. It seems to me that it could be really useful sometimes
(enough to justify it). It also seems to me that there would be no major
implementation problem. It would require a number of changes and insertions
to the RM, but nothing drastic. Gets my vote.

--
Nick Roberts
http://www.AdaOS.org


"Jeff Creem" <jeff@thecreems.com> wrote in message
news:t6jeim807fic0a@corp.supernews.com...
> ...
> There are of course other perfectly acceptable methods but at times it
would
> be cleaner to be able to do things like
>
> type Fruit_Type is (Apple, Orange);
> type New_Fruit_Type is new Fruit_Type with (Pear, Kiwi);
>
> A : Fruit_Type := Apple;
> B : New_Fruit_Type := New_Fruit_Type(A);
> ...