From: Jeffrey Carter <spam@spam.com>
Subject: Re: Any examples of Byte Ordering Functions
Date: Sun, 19 Oct 2003 20:47:20 GMT
Date: 2003-10-19T20:47:20+00:00 [thread overview]
Message-ID: <sLCkb.3701$S52.3208@newsread4.news.pas.earthlink.net> (raw)
In-Reply-To: <d6Akb.6022$mM1.5008@newsfep4-winn.server.ntli.net>
chris wrote:
> procedure Write_Little_Endian
> (Stream : access Root_Stream_Type'Class;
> W : in Word) is
> A, B : Byte;
> begin
> A := Byte (W and 16#00FF#);
> B := Byte (Shift_Right (Unsigned_32(W), 8));
> Byte'Write (Stream, B);
> Byte'Write (Stream, A);
> end Write_Little_Endian;
B contains the MSB, so you should write A 1st for little endian.
> and this will work whatever the platform we compile on?
With this correction, yes.
--
Jeff Carter
"You cheesy lot of second-hand electric donkey-bottom biters."
Monty Python & the Holy Grail
14
next prev parent reply other threads:[~2003-10-19 20:47 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-10-15 17:42 Any examples of Byte Ordering Functions Bill Sheehan
2003-10-15 18:55 ` Larry Kilgallen
2003-10-15 18:44 ` Hyman Rosen
2003-10-16 1:01 ` James Rogers
2003-10-16 13:32 ` Hyman Rosen
2003-10-16 14:59 ` Martin Dowie
2003-10-16 20:00 ` tmoran
2003-10-17 12:08 ` Martin Dowie
2003-10-19 15:22 ` chris
2003-10-19 17:25 ` (see below)
2003-10-19 13:45 ` chris
2003-10-19 16:53 ` Martin Dowie
2003-10-19 17:52 ` chris
2003-10-19 19:24 ` Martin Dowie
2003-10-19 20:47 ` Jeffrey Carter [this message]
2003-10-19 22:53 ` tmoran
2003-10-20 4:14 ` Jeffrey Carter
2003-10-23 20:36 ` Laurent Pautet
2003-10-23 21:37 ` Simon Wright
2003-10-24 4:37 ` Simon Wright
2003-10-26 15:05 ` Georg Bauhaus
2003-10-23 20:44 ` Laurent Pautet
2003-10-23 21:03 ` Laurent Pautet
2003-10-15 19:58 ` Frank J. Lhota
2003-10-16 16:28 ` Stephen Leake
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox