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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,29fe9a340e0d180d
X-Google-Attributes: gid103376,public
From: Simon Wright <simon@pogner.demon.co.uk>
Subject: Re: Depending on passing mechanism
Date: 1997/10/22
Message-ID: <x7vlnzlh9nh.fsf@pogner.demon.co.uk>#1/1
X-Deja-AN: 282480717
References: <x2hgal3jxa.fsf@moon.inf.fu-berlin.de> <dewar.876842858@merv>
 <hbaker-1410971205270001@10.0.2.1> <EIDp0s.F4y@world.std.com>
 <hbaker-2110971616360001@10.0.2.1>
 <mheaney-ya023680002110972333400001@news.ni.net>
X-NNTP-Posting-Host: pogner.demon.co.uk [158.152.70.98]
Organization: At Home
Newsgroups: comp.lang.ada
Date: 1997-10-22T00:00:00+00:00
List-Id: <comp.lang.ada>


mheaney@ni.net (Matthew Heaney) writes:

> type Temperature_As_Record is
>    record
>       Temperature : Temperature_in_Celsius_Base;
>    end record;
> 
> for Temperature_As_Record use
>    record
>       Temperature at 0 range 7 .. 15;
>    end record;

I guess I would have put this part at least inside the function
and included something about System.Default_Bit_Order ..

if System."=" (System.Default_Bit_Order, System.Low_Order_First) then
  declare
    type Little_Endian_Temperature_As_Record is new Temperature_As_Record;
    for Little_Endian_Temperature_As_Record use record
      Temperature at 0 range 0 .. 8;
    end record;
    for Little_Endian_Temperature_As_Record'Size use ...
    function Convert is new Unchecked_Conversion
       (..., Little_Endian_Temperature_As_Record);
  begin
    Result := Temperature_As_Record (Convert (...));
  end;
else
  ...

-- 
Simon Wright                        Work Email: simon.j.wright@gecm.com
GEC-Marconi Radar & Defence Systems            Voice: +44(0)1705-701778
Command & Information Systems Division           FAX: +44(0)1705-701800