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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,640b65cbfbab7216
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!postnews.google.com!j22g2000hsf.googlegroups.com!not-for-mail
From: christoph.grein@eurocopter.com
Newsgroups: comp.lang.ada
Subject: Re: Ada.Strings.Bounded
Date: Wed, 23 Apr 2008 05:52:24 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <4228dd9a-2616-48af-ba60-cf61e8cd907a@j22g2000hsf.googlegroups.com>
References: <q5CdnepU0ZzTxmzanZ2dnUVZ_t-nnZ2d@earthlink.com>
	<144w648u50r6q.1erjxxu0cplbw.dlg@40tude.net>
 <d5dc2989-7c5e-416b-ad6f-54f187fb6e3b@a9g2000prl.googlegroups.com>
	<g0h6sr1pyq67.vixepl474n4k$.dlg@40tude.net>
 <611360e0-595c-43a7-b5cb-137a278ec0c1@s13g2000prd.googlegroups.com>
	<15389tuelo6x6$.1c1a6yixordts$.dlg@40tude.net>
 <4c1be2a2-0178-4c1f-8c96-526020550f42@w4g2000prd.googlegroups.com>
	<wcczlrnb8rz.fsf@shell01.TheWorld.com>
 <15514187-d7d0-4650-a058-13ec5684be2c@w5g2000prd.googlegroups.com>
	<wcck5ir84on.fsf@shell01.TheWorld.com>
 <07e98c4f-9b79-412f-9e95-94dd04082355@p39g2000prm.googlegroups.com>
	<wcck5ipkic6.fsf@shell01.TheWorld.com>
 <3eb5775f-c7f7-4f92-9154-8f25246b8592@p25g2000hsf.googlegroups.com>
	<wcck5ipu17t.fsf@shell01.TheWorld.com>
 <480f1298$0$6782$9b4e6d93@newsspool2.arcor-online.net>
NNTP-Posting-Host: 80.156.44.161
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1208955144 29818 127.0.0.1 (23 Apr 2008 12:52:24
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 23 Apr 2008 12:52:24 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: j22g2000hsf.googlegroups.com; posting-host=80.156.44.161;
	posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;
 .NET
	CLR 1.1.4322; .NET CLR 2.0.50727),gzip(gfe),gzip(gfe)
X-HTTP-Via: 1.1 webwasher (Webwasher 6.7.0.3295)
Xref: g2news1.google.com comp.lang.ada:21054
Date: 2008-04-23T05:52:24-07:00
List-Id: <comp.lang.ada>

> procedure Ex is
> =A0 =A0 type E is (A, B, C);
> =A0 =A0 X: E;
> begin
> =A0 =A0 X :=3D E'pred(E'succ(C));
> end Ex;

You can have this:

  type Enum is (A, B, C, D);
  type Sub is new Enum range A .. C;

  Sub'Succ (Sub'Last) =3D D
  Sub'Pred (Sub'Succ (Sub'Last)) =3D C

Sub'Base has range A .. D.