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,b007c42c7898f4ef
X-Google-Attributes: gid103376,public
From: John English <je@bton.ac.uk>
Subject: Re: First attribute on Enumerated types
Date: 1999/02/24
Message-ID: <36D3D833.75392AE9@bton.ac.uk>#1/1
X-Deja-AN: 447845998
Content-Transfer-Encoding: 7bit
References: <001e01be5f9d$ebe4d7e0$5b824a0c@rogers>
 <36D3678F.6C3CB1F6@aasaa.ofe.org>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
Organization: University of Brighton
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 1999-02-24T00:00:00+00:00
List-Id: <comp.lang.ada>

David Starner wrote:
>     type Color is private;

... but not necessarily an enumeration; it might be a record type, or a Float...

>     procedure SetRoot(BaseTree: in out Tree; Item: in Node_Pointer;
> NewColor: in Color := Color'First);

... but private types (or the record types that might be used in an instantiation)
don't have a 'First attribute...

Try this:
  type Color is (<>);
or this:
  type Color is private;
  Color_First : Color;    -- supply your desired "first" value here and use
                          -- Color_First instead of Color'First

> The irony is, there ARE drugs that ENHANCE it. This says something
> profound about either science or medicine or people or muppets or all
> four. - S. John Ross

Enhance what??? (just curious...;-)

-----------------------------------------------------------------
 John English              | mailto:je@brighton.ac.uk
 Senior Lecturer           | http://www.it.bton.ac.uk/staff/je
 Dept. of Computing        | ** NON-PROFIT CD FOR CS STUDENTS **
 University of Brighton    |    -- see http://burks.bton.ac.uk
-----------------------------------------------------------------