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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6cc2d0131145e263
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-08-11 14:00:15 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!nntp.cs.ubc.ca!news.ksw.feedmania.org!tky01nn01fe0.sonytelecom.ad.jp!newsfeed.mesh.ad.jp!nntp-egw.ocn.ad.jp!nd-tk001.ocn.ad.jp!news.cityfujisawa.ne.jp!not-for-mail
From: Toshitaka KUMANO <kumano@cityfujisawa.ne.jp>
Newsgroups: comp.lang.ada
Subject: Re: Question about "for X'Size use ..."
Date: Sat, 11 Aug 2001 05:58:27 +0900
Organization: City Fujisawa Kanagawa PREF., JAPAN.
Message-ID: <3B744AF3.BBB1B947@cityfujisawa.ne.jp>
References: <3B72C23E.62F7B3D2@san.rr.com> <87ofpnzmpj.fsf@deneb.enyo.de>
 <pNagsCYp$jRu@eisner.encompasserve.org>
Reply-To: kuma@mss.co.jp
NNTP-Posting-Host: max01-108.cityfujisawa.ne.jp
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: ns2.cityfujisawa.ne.jp 997562995 13026 210.145.23.108 (11 Aug 2001
 20:49:55 GMT)
X-Complaints-To: usenet@news.cityfujisawa.ne.jp
NNTP-Posting-Date: 11 Aug 2001 20:49:55 GMT
X-Mailer: Mozilla 4.6 [ja] (Win98; I)
X-Accept-Language: en,ja
Xref: archiver1.google.com comp.lang.ada:11798
Date: 2001-08-11T20:49:55+00:00
List-Id: <comp.lang.ada>

For your interests.

Larry Kilgallen wrote:
> That's what I like about ASN.1.  I don't know XDR.

Thanks to XDR in GNAT, we have been able to exchange any arbitrary
data types among PowerPC (big endian) and Alpha (little endian), 
including record types where components are designated with
some non-natural bit width and location, such as,

type Data is
   record
      Bits_12 : Natural range 0 .. 2**12;
      Bits_20 : Natural range 0 .. 2**20;
   end record;

for Data use
   record
      Bits_12 at 0 range  0 .. 11;
      Bits_20 at 0 range 12 .. 31;
   end record;

for Data'Size use 32;

--
kuma