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,ccec731410303262
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-15 13:59:03 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!news.tele.dk!small.news.tele.dk!207.115.63.138!newscon04.news.prodigy.com!newsmst01.news.prodigy.com!prodigy.com!postmaster.news.prodigy.com!newssvr21.news.prodigy.com.POSTED!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: Re: does gnatelim work?
References: <uaduaobgx.fsf@gsfc.nasa.gov>
X-Newsreader: Tom's custom newsreader
Message-ID: <Awfb8.40$jC3.22930452@newssvr21.news.prodigy.com>
NNTP-Posting-Host: 64.175.241.227
X-Complaints-To: abuse@prodigy.net
X-Trace: newssvr21.news.prodigy.com 1013810336 ST000 64.175.241.227 (Fri,
 15 Feb 2002 16:58:56 EST)
NNTP-Posting-Date: Fri, 15 Feb 2002 16:58:56 EST
Organization: Prodigy Internet http://www.prodigy.com
X-UserInfo1: 
 OH\IRYOGTRUSP_@YMZJ\_Q\@TJ_ZTB\MV@BJ]Q]KEYUNDQUCCNSUAACY@L[ZX__HGFD]JBJNSFXTOOGA_VWY^_HG@FW_HUTHOH]TBPGCO\P^PLP^@[GLHUK@WLECKFVL^TYG[@RMWQXIWM[SDDYWNLG_G[_BWUCHFY_Y@AS@Q[B\APPF@DCZM_PG_VSCPQZM
Date: Fri, 15 Feb 2002 21:58:56 GMT
Xref: archiver1.google.com comp.lang.ada:20062
Date: 2002-02-15T21:58:56+00:00
List-Id: <comp.lang.ada>

>Then just add the -gnatt switch, to save the "tree" file.

  An apparently successful
gnatmake -f -gnatt progname
  followed by
gnatelim progname > gnat.adc
  results in
gnatelim: Library item corresponding to progname not found.
  and a zero length gnat.adc file.

>What sort of "spurious" errors were you getting?
  Previously, following the gnat_ug.htm instructions, I tried
gnatmake -f -c -gnatc -gnatt progname
  but that gives spurious compilation errors (3.14p) about sizes.
---------- progname.adb
with ada.streams;
with ada.unchecked_conversion;
procedure progname is
        type Color_Intensities is range 0 .. 255;
        for Color_Intensities'size use 8;

        type DIB_Color_Type is record
            Blue,
            Green,
            Red         : Color_Intensities;
            Reserved    : Integer range 0 .. 0 := 0;
        end record;
        for DIB_Color_Type'size use 32;

        for DIB_Color_Type use record
            Blue        at 0 range 0 .. 7;
            Green       at 1 range 0 .. 7;
            Red         at 2 range 0 .. 7;
            Reserved    at 3 range 0 .. 7;
        end record;

        subtype Copy_Type is Ada.Streams.Stream_Element_Array
            (1 .. Ada.Streams.Stream_Element_Count(DIB_Color_Type'size/8));
        function Copy_Of is new Ada.Unchecked_Conversion
            (DIB_Color_Type, Copy_Type);

  dummys : DIB_Color_Type;
  dummyt : Copy_Type;
begin
  dummyt := copy_of(dummys);
end progname;
---------- end progname.adb
That's of course a shrunken version of the rather larger program I was
trying to apply gnatelim to.