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,bc1361a952ec75ca
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-07-31 03:18:20 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news.tele.dk!195.27.83.146!news-FFM2.ecrc.net!news.iks-jena.de!lutz
From: lutz@iks-jena.de (Lutz Donnerhacke)
Newsgroups: comp.lang.ada
Subject: Re: How to make Ada a dominant language
Date: Tue, 31 Jul 2001 10:16:29 +0000 (UTC)
Organization: IKS GmbH Jena
Message-ID: <slrn9md15c.hv.lutz@taranis.iks-jena.de>
References: <bebbba07.0107292308.d1192fc@posting.google.com>
 <slrn9ma7qp.nac.randhol@kiuk0156.chembio.ntnu.no>
 <3B6555ED.9B0B0420@sneakemail.com> <9k3l9r$10i2$1@pa.aaanet.ru>
 <3B667B3A.B208D6DE@amsjv.com>
NNTP-Posting-Host: taranis.iks-jena.de
X-Trace: branwen.iks-jena.de 996574589 28362 217.17.192.37 (31 Jul 2001
 10:16:29 GMT)
X-Complaints-To: usenet@iks-jena.de
NNTP-Posting-Date: Tue, 31 Jul 2001 10:16:29 +0000 (UTC)
User-Agent: slrn/0.9.6.3 (Linux)
Xref: archiver1.google.com comp.lang.ada:10857
Date: 2001-07-31T10:16:29+00:00
List-Id: <comp.lang.ada>

* Philip Anderson wrote:
>requiring pre-processing to convert it into the other, must be a
>non-starter - in "Day : Date", which would be the type, without looking
>for a pre-processor request?  (French keywords give no such ambiguity)

What's more readable?

    arr : array (arg'Range) of arg'Base_Type :=
                    arg (arg'First + 1 .. arg'Last, Arg'First);

or 
    array (arg'Range) of arg'Base_Type : arr :=
                    arg (arg'First + 1 .. arg'Last, Arg'First);

?

How about

    struct {
      unsigned int i7 : 7;
      unsigned int i1 : 1;
      char str [77][33];
    } var [77];

vs.
    type uint_7 is range 0 .. 2**7-1;
    
    type var_type is record
       i1 : boolean;
       i7 : uint_7;
       str : array (0 .. 33) of array (0 .. 77) of character;
    end record;
    
    for var_type use record
       i1 at 0 range 0 .. 0;
       i7 at 0 range 1 .. 7;
    end record;
    for var_type'Bit_Order use High_Order_First;
    
    var : array (0 .. 77) of var_type;

?