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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,bb163c965c676b88
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.66.84.202 with SMTP id b10mr3485668paz.43.1354678859810;
        Tue, 04 Dec 2012 19:40:59 -0800 (PST)
Received: by 10.50.163.66 with SMTP id yg2mr238381igb.0.1354678850408; Tue, 04
 Dec 2012 19:40:50 -0800 (PST)
Path: 
 s9ni26043pbb.0!nntp.google.com!kt20no7647963pbb.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 4 Dec 2012 19:40:50 -0800 (PST)
In-Reply-To: <k9m9rj$7gm$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=149.32.224.33;
 posting-account=Qh2kiQoAAADpCLlhT_KTYoGO8dU3n4I6
NNTP-Posting-Host: 149.32.224.33
References: <a0647230-14c8-4ece-8ed6-d23bdf130776@googlegroups.com>
 <85e4a577-9219-4fbe-a2a1-1c1f1459792f@googlegroups.com>
 <758371db-86aa-41c0-8242-de10f1f2df43@googlegroups.com>
 <85wqygb299.fsf@stephe-leake.org>
 <38525356-259e-465f-b5c7-bd97ededfca9@googlegroups.com>
 <810dfb9d-28ca-45ab-8adc-6909a49acfbe@googlegroups.com>
 <ai6qmtFnk6qU1@mid.individual.net>
 <8c726f83-c972-4435-8f48-88ae57cfa8cb@googlegroups.com>
 <k9m158$a1n$1@munin.nbi.dk>
 <aba4eee4-97df-4b24-a268-a46c3cb778f1@googlegroups.com>
 <k9m9rj$7gm$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <00704359-173a-45bb-a41d-05a1f7c16923@googlegroups.com>
Subject: Re: Endianness and Record Specification
From: Anh Vo <anhvofrcaus@gmail.com>
Injection-Date: Wed, 05 Dec 2012 03:40:59 +0000
Content-Type: text/plain; charset=ISO-8859-1
Date: 2012-12-04T19:40:50-08:00
List-Id: <comp.lang.ada>

System.Bit_Order isn't defined in ANSI/MIL-STD-1815A (ARM 83). It first shows up 
in Ada 95. 

I just downloaded a PDF version of MIL-STD-1815A since I misplace my copy. You are right System.Bit_Order does not exist in it. I guess my brain has not functioned properly.

It is interesting to note that APEX Ada 83 compiler implemented this type. Below is a section of package System containing this type that I just copy strait from APEX.

    Memory_Size : constant := 16#100000000#;
    function "<" (Left, Right : in Address) return Boolean;
    function "<=" (Left, Right : in Address) return Boolean;
    function ">" (Left, Right : in Address) return Boolean;
    function ">=" (Left, Right : in Address) return Boolean;
    subtype Address_Sized_Integer is Integer;
    function To_Address (Value : in Address_Sized_Integer) return Address;
    function To_Integer (Value : in Address) return Address_Sized_Integer;
    type Address_Sized_Unsigned is mod 16#100000000#;
    function "+" (I : in Address_Sized_Unsigned) return Address;
    function Memory_Address (I : in Address_Sized_Unsigned) return Address
       renames "+";
    function "+" (Left : in Address; Right : in Integer) return Address;
    function "+" (Left : in Integer; Right : in Address) return Address;
    function "-" (Left : in Address; Right : in Integer) return Address;
    function "-" (Left : in Address; Right : in Address) return Integer;
    function "+" (Left : in Address; Right : in Long_Integer) return Address;
    function "+" (Left : in Long_Integer; Right : in Address) return Address;
    function "-" (Left : in Address; Right : in Long_Integer) return Address;
    function "-" (Left : in Address; Right : in Address) return Long_Integer;
    type Bit_Order is (High_Order_First, Low_Order_First);
    Default_Bit_Order : constant Bit_Order := High_Order_First;
    type Byte_Order_T is (Little_Endian, Big_Endian);
    Byte_Order : constant Byte_Order_T := Big_Endian;
    subtype Any_Priority is Integer range 0 .. 58;
    subtype Priority is Any_Priority range 0 .. 57;
    subtype Interrupt_Priority is Any_Priority range 58 .. 58;
    Default_Priority : constant Priority := 28;
    Address_Zero : constant Address;
    No_Addr : constant Address;