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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e91f674b5db5e2b2
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-09-17 00:37:44 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!howland.erols.net!portc.blue.aol.com.MISMATCH!portc01.blue.aol.com!newsfeed.skycache.com.MISMATCH!newsfeed1.cidera.com!Cidera!feed1.newsreader.com!feed2.newsreader.com!uunet!ash.uu.net!spool0900.news.uu.net!news0-alterdial.eu.uu.net!not-for-mail
From: Juanma Barranquero <lektu@terra.es>
Newsgroups: comp.lang.ada
Subject: Re: [Different Topic] Endianess?
Date: Mon, 17 Sep 2001 09:37:43 +0200
Message-ID: <lq9bqtgt5kj60avgvsb9nlmla9hpi2q4ka@4ax.com>
References: <09Oo7.12082$mj6.1852826@news6-win.server.ntlworld.com>
 <UHRo7.12938$mj6.2026261@news6-win.server.ntlworld.com>
X-Newsreader: Forte Agent 1.8/32.548
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 62.22.27.143
X-Trace: news0-alterdial.eu.uu.net 1000712263 24947 62.22.27.143
Xref: archiver1.google.com comp.lang.ada:13111
Date: 2001-09-17T09:37:43+02:00
List-Id: <comp.lang.ada>

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