Re: Bit operations in Ada (endianness)

["(see below)" <yaldnif.w@blueyonder.co.uk>]

On 02/06/2008 14:27, in article g20sg4$nkb$1@aioe.org, "Dennis Hoppe"
<dennis.hoppe@hoppinet.de> wrote:
 
> I also wonder, if I can query the operating system via Ada,
> which endianness it uses.

No need to talk to the OS.
Try something like this:

   -- N.B. not tested as written!

   not_little_endian : exception;

   type i08 is mod 2**8;
   type i64 is mod 2**64;

   type i08_group is array (0..7) of i08;
   for  i08_group'Component_Size use 8;
   for  i08_group'Size use 64;

   the_i64       : i64 := 0;
   the_i08_group : i08_group;
   for the_i08_group'Address use the_i64'Address;
   pragma Import (Ada, the_i08_group);
   --
   the_i08_group(0) := 1;
   if the_i64 /= 1 then
      raise not_little_endian
   end if;
-- 
Bill Findlay
<surname><forename> chez blueyonder.co.uk