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,4751d44ff54a2c2c
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-08-17 17:59:33 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!arclight.uoregon.edu!enews.sgi.com!news.xtra.co.nz!53ab2750!not-for-mail
From: "AG" <ang@xtra.co.nz>
Newsgroups: comp.lang.ada
References: <3CE3978F.6070704@gmx.spam.egg.sausage.and.spam.net>
 <Xns925A758E8FB6Avictorgiddingsoiscom@192.84.85.25>
 <wccy9buqoi6.fsf@shell01.TheWorld.com> <3D46DC69.7C291297@adaworks.com>
 <5ee5b646.0207301613.5b59616c@posting.google.com>
 <yeceldkpm34.fsf@king.cts.com> <wcc65ywhw3s.fsf@shell01.TheWorld.com>
 <ai8pf9$fip$1@nh.pace.co.uk> <slrnakhqa5.ok.lutz@taranis.iks-jena.de>
 <aibbr8$4ie$1@nh.pace.co.uk> <slrnakkdbb.ou.lutz@taranis.iks-jena.de>
 <aie0vt$p6g$1@nh.pace.co.uk>
 <5ee5b646.0208030424.39703482@posting.google.com>
 <ulita886np1nd9@corp.supernews.com>
Subject: Re: 64-bit integers in Ada
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Message-ID: <UjC79.5960$hk3.1112693@news.xtra.co.nz>
Date: Sun, 18 Aug 2002 13:01:39 +1200
NNTP-Posting-Host: 210.54.72.118
X-Complaints-To: newsadmin@xtra.co.nz
X-Trace: news.xtra.co.nz 1029632372 210.54.72.118 (Sun,
 18 Aug 2002 12:59:32 NZST)
NNTP-Posting-Date: Sun, 18 Aug 2002 12:59:32 NZST
Organization: Xtra
Xref: archiver1.google.com comp.lang.ada:28195
Date: 2002-08-18T13:01:39+12:00
List-Id: <comp.lang.ada>


"Randy Brukardt" <randy@rrsoftware.com> wrote in message
news:ulita886np1nd9@corp.supernews.com...

>     type String_Count is range 0 .. 2**32-1;
>     subtype String_Index is String_Count range 1 .. String_Count'Last;

To be consistent, should not it be:

subtype String_Index is String_Count range String_Count'First + 1 ..
String_Count'Last;

Otherwise you are assuming that counting starts from zero (or one).