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,245c84afd1e393ce
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!dotsrc.org!news.dotsrc.org!not-for-mail
Message-Id: <1614932.bCcW5lLfee@linux1.krischik.com>
From: Martin Krischik <krischik@users.sourceforge.net>
Subject: Re: What about big integers in Ada 2005?
Newsgroups: comp.lang.ada
Date: Sun, 02 Oct 2005 12:28:21 +0200
References: <dgc9f5$1b8$1@news.task.gda.pl>
 <1581461.uQ1jN63t33@linux1.krischik.com>
 <sa41x34hhg7.fsf@snoopy.microcomaustralia.com.au>
User-Agent: KNode/0.9.2
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: 84.73.3.68
X-Trace: news.sunsite.dk
 DXC=<iZINJTNf:]U2<R_[OZ4CYYSB=nbEKnk[8fDfKVWkmc[S5daR30PdPUV:_8RJBabH]g9KO4?]BWO[BnDSD\Zlk=XJZ@Gj3;L6c\
X-Complaints-To: staff@sunsite.dk
Xref: g2news1.google.com comp.lang.ada:5336
Date: 2005-10-02T12:28:21+02:00
List-Id: <comp.lang.ada>

Brian May wrote:

> Question (from writing a communications protocol with a high level
> programming language that turned out to a an extremely poor
> choice[1]):

package Interfaces is
pragma Pure (Interfaces);

   type Integer_8  is range -2 **  7 .. 2 **  7 - 1;
   for Integer_8'Size use  8;

   type Integer_16 is range -2 ** 15 .. 2 ** 15 - 1;
   for Integer_16'Size use 16;

   type Integer_32 is range -2 ** 31 .. 2 ** 31 - 1;
   for Integer_32'Size use 32;

   type Integer_64 is range -2 ** 63 .. 2 ** 63 - 1;
   for Integer_64'Size use 64;

   type Unsigned_8  is mod 2 **  8;
   for Unsigned_8'Size use  8;

   type Unsigned_16 is mod 2 ** 16;
   for Unsigned_16'Size use 16;

   type Unsigned_32 is mod 2 ** 32;
   for Unsigned_32'Size use 32;

   type Unsigned_64 is mod 2 ** 64;
   for Unsigned_64'Size use 64;

;-)

Martin

-- 
mailto://krischik@users.sourceforge.net
Ada programming at: http://ada.krischik.com