Re: [Different Topic] Endianess?

[Juanma Barranquero <lektu@terra.es>]

On Sun, 16 Sep 2001 00:42:36 +0100, "chris.danx"
<chris.danx@ntlworld.com> wrote:

>How could one detect Endianess with Ada 95?

<snip>

> How do I map this to Ada?  Use an unchecked conversion perhaps?

More or less. I've been doing:

   type Byte_Order is (Little_Endian, Big_Endian);

   Default_Byte_Order : Byte_Order;

   type Word is mod 2 ** 32;
   subtype Chr4 is String (1..4);

   function UC is new Unchecked_Conversion(Word, Chr4);

   Test_Word : constant Word := 16#33323130#;
   Test_Chr4 : constant Chr4 := "0123";

   -- ...

   if UC(Test_Word) = Test_Chr4 then
      Default_Byte_Order := Little_Endian;
   else
      Default_Byte_Order := Big_Endian;
   end if;


                                                       /L/e/k/t/u