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,a415d3a613d86a4e,start
X-Google-Attributes: gid103376,public
From: harris@newman.pcisys.net (Jeffrey Harris)
Subject: Ada Enumerations
Date: 1997/12/03
Message-ID: <662cs9$b34$1@newman.pcisys.net>#1/1
X-Deja-AN: 294761575
Organization: PCI Systems Inc.
Newsgroups: comp.lang.ada
Date: 1997-12-03T00:00:00+00:00
List-Id: <comp.lang.ada>


I have created an Ada Enumeration called DataTypes, afterwards I've created a
'use' clause where I give each element an integer value.  The last Enumeration
is LASTTYPE and is given a value of 100.

Now to the problem.  I'd like to be able to do something like the following..


NewLocation: Integer := DataTypes.LASTTYPE + 1;  -- Newlocation = 101

The compiler isn't letting me do this.  I've tried to use 'value, 'pos, and
'val to no avail, how do I convert an Ada enumerated type into an integer value?


Thanx... Please e-mail me at harris@pcisys.net

Jeff Harris