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,a0be06fbc0dd71f1
X-Google-Attributes: gid103376,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!bigfeed3.bellsouth.net!news.bellsouth.net!newsfeed2.telusplanet.net!newsfeed.telus.net!edtnps90.POSTED!53ab2750!not-for-mail
Sender: blaak@METROID
Newsgroups: comp.lang.ada
Subject: Re: The future of Ada is at risk
References: <20071229040639.f753f982.coolzone@it.dk>
 <13oe680qard6u2d@corp.supernews.com> <HrOhj.295370$Fc.152545@attbi_s21>
 <yUOhj.61904$eY.33531@newssvr13.news.prodigy.net>
 <kKThj.295755$Fc.128066@attbi_s21> <47887709.9030107@obry.net>
 <sa4bq7rl5f1.fsf@snoopy.microcomaustralia.com.au> <47889568.3010507@obry.net>
 <R%6ij.13868$6%.6087@nlpi061.nbdc.sbc.com> <4789038F.7090708@obry.net>
 <1200176645.8909.4.camel@K72> <ulk6uxtw7.fsf@STRIPCAPStelus.net>
 <C3AFCB41.D99BC%yaldnif.w@blueyonder.co.uk>
From: Ray Blaak <rAYblaaK@STRIPCAPStelus.net>
Message-ID: <uabn99nxr.fsf@STRIPCAPStelus.net>
Organization: The Transcend
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Mon, 14 Jan 2008 01:49:09 GMT
NNTP-Posting-Host: 154.20.94.243
X-Trace: edtnps90 1200275349 154.20.94.243 (Sun, 13 Jan 2008 18:49:09 MST)
NNTP-Posting-Date: Sun, 13 Jan 2008 18:49:09 MST
Xref: g2news1.google.com comp.lang.ada:19397
X-Original-Bytes: 2082
Date: 2008-01-14T01:49:09+00:00
List-Id: <comp.lang.ada>

"(see below)" <yaldnif.w@blueyonder.co.uk> writes:
>    subtype an_alignment_mask is a_virtual_address range 0..7;
>    type a_signed_long is range -2**63 .. +2**63 - 1;
>    type a_signed_word is range -2**31..+2**31 - 1;
>    type a_signed_half is range -2**15..+2**15 - 1;
>    type a_signed_byte is range  -2**7..+2**7 - 1;

I buy the bit twiddling ones, actually.

>    subtype open_mode   is i64 range 0 .. 1;
>    subtype seek_whence is i64 range 0 .. 2;

I wonder if these are better as enumerations.

-- 
Cheers,                                        The Rhythm is around me,
                                               The Rhythm has control.
Ray Blaak                                      The Rhythm is inside me,
rAYblaaK@STRIPCAPStelus.net                    The Rhythm has my soul.