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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,4c06e1e4fc2bf2d1
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!198.186.194.249.MISMATCH!transit3.readnews.com!transit4.readnews.com!news-out.readnews.com!postnews3.readnews.com!not-for-mail
Date: Wed, 06 Aug 2008 09:44:07 -0400
From: "Peter C. Chapin" <pcc482719@gmail.com>
User-Agent: Thunderbird 2.0.0.16 (Windows/20080708)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Controlling endian-ness?
References: <4897b7f5$0$19705$4d3efbfe@news.sover.net>
 <IVZlk.289394$SV4.230341@bgtnsc04-news.ops.worldnet.att.net>
 	<4898d0ca$0$19680$4d3efbfe@news.sover.net>
 <66265b13-8e35-4bc7-8e9f-7c4d76adb5b7@b38g2000prf.googlegroups.com>
In-Reply-To: 
 <66265b13-8e35-4bc7-8e9f-7c4d76adb5b7@b38g2000prf.googlegroups.com>
X-Enigmail-Version: 0.95.6
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <4899aaa6$0$19662$4d3efbfe@news.sover.net>
Organization: SoVerNet (sover.net)
NNTP-Posting-Host: fda03f3b.news.sover.net
X-Trace: 
 DXC=j\]\A?_hgN^jT:G\be_IU]K6_LM2JZB_S77Zo;JGFTh_3?@`i3kGa5[YC[>h3fUYATb<H22B1UQZT
X-Complaints-To: abuse@sover.net
Xref: g2news2.google.com comp.lang.ada:7186
Date: 2008-08-06T09:44:07-04:00
List-Id: <comp.lang.ada>

Adam Beneschan wrote:

>      type My_Unsigned_32 is new Unsigned_32;
>      procedure My_Write
>        (Stream : not null access Ada.Streams.Root_Stream_Type'Class;
>         Item   : in My_Unsigned_32);
>      for My_Unsigned_32'Write use My_Write;

You're right that works. I actually thought I tried using a derived type 
before, but evidently I didn't do it right. Anyway thanks for the 
suggestion.

Peter