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,38159b1b5557a2e7
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-01-26 17:03:25 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!c03.atl99!sjc70.webusenet.com!news.webusenet.com!pd7cy2so!shaw.ca!border1.nntp.ash.giganews.com!border2.nntp.sjc.giganews.com!border1.nntp.sjc.giganews.com!nntp.giganews.com!local1.nntp.sjc.giganews.com!nntp.comcast.com!news.comcast.com.POSTED!not-for-mail
NNTP-Posting-Date: Mon, 26 Jan 2004 19:03:23 -0600
Date: Mon, 26 Jan 2004 20:03:21 -0500
From: "Robert I. Eachus" <rieachus@comcast.net>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Endian-Independent Rep Clauses
References: <mailman.17.1075123857.2270.comp.lang.ada@ada-france.org>
 <idadnbdQorZopojdRVn-ig@comcast.com>
 <rMdRb.27690$1e.18707@newsread2.news.pas.earthlink.net>
In-Reply-To: <rMdRb.27690$1e.18707@newsread2.news.pas.earthlink.net>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <L8CdnXVgkvVGJYjdRVn-tA@comcast.com>
NNTP-Posting-Host: 24.147.77.160
X-Trace: 
 sv3-zRppXEUpwjvzq/espj6M0HBHzErAn8uE9xnHpTycUt4HNZA7vUfPVKRCbOg5FtmIVOQgIDzUVSoBSzL!TG3u5OPoBBpe0+dhn0U6nWeq6xBvYqAFtoLusBOAbrfAyXEz+Ph6AtnS222b/Q==
X-Complaints-To: abuse@comcast.net
X-DMCA-Complaints-To: dmca@comcast.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.1
Xref: archiver1.google.com comp.lang.ada:4860
Date: 2004-01-26T20:03:21-05:00
List-Id: <comp.lang.ada>

Jeffrey Carter wrote:

> IIRC, it addresses the fact that Default_Bit_Order is static, thanks to 
> an AI, and uses static universal math based on Boolean'Pos 
> (Default_Bit_Order = <one_of_the_choices>) to calculate bit positions. 
> I've done this kind of thing; it requires long expressions for bit 
> numbers, but works fine.

Not really, just declare:

Bits: constant := System.Bit_Order'Pos(System.Default_Bit_Order);

then go on from there.
-- 
                                           Robert I. Eachus

"The war on terror is a different kind of war, waged capture by capture, 
cell by cell, and victory by victory. Our security is assured by our 
perseverance and by our sure belief in the success of liberty." -- 
George W. Bush