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,cdaa3abe008a8f57
X-Google-Attributes: gid103376,public
From: korisko <korisko@newsguy.com>
Subject: Re: Ada Type Information
Date: 1999/03/09
Message-ID: <7c3u1e$ct1@drn.newsguy.com>#1/1
X-Deja-AN: 453113486
References: <36E03843.3AD74457@lmco.com> <7bpohc$j2t$1@nnrp1.dejanews.com>
Organization: Newsguy News Service [http://www.newsguy.com]
Newsgroups: comp.lang.ada
Date: 1999-03-09T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <7bpohc$j2t$1@nnrp1.dejanews.com>, dewar@gnat.com says...
>
 
>Source
>------
>
>procedure q is
>   type r is record
>      a : integer := 0;
>      s : string (1 .. 5);
>      t : integer;
>   end record;
 
>Representation information for unit q
>--------------------------------------
>
>for r'Object_Size use 128;
>for r use record
>   a at  0 range  0 .. 31;
>   s at  4 range  0 .. 39;   <====== ??
>   t at 12 range  0 .. 31;
>end record;
 

hi,

is it hard to change -gnatR to make it also print the type of the field as 
well, maybe as a comment? 

something like
 
for r'Object_Size use 128;  
for r use record
    a at  0 range  0 .. 31;  -- Integer
    s at  4 range  0 .. 39;  -- String(1..5)
    t at 12 range  0 .. 31;  -- Integer
end record;

korisko