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,WEIRD_PORT
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,276d287d02e77faf,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-10 16:11:04 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.gtei.net!newscon02.news.prodigy.com!newsmst01.news.prodigy.com!prodigy.com!postmaster.news.prodigy.com!newssvr14.news.prodigy.com.POSTED!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: How to use gnatelim in Gnat 3.14p?
References: <Xns90C86B56DE86charleshixsonearthli@207.217.77.23>
X-Newsreader: Tom's custom newsreader
Message-ID: <BZD98.742$Wp3.369659067@newssvr14.news.prodigy.com>
NNTP-Posting-Host: 67.112.201.46
X-Complaints-To: abuse@prodigy.net
X-Trace: newssvr14.news.prodigy.com 1013386209 ST000 67.112.201.46 (Sun,
 10 Feb 2002 19:10:09 EST)
NNTP-Posting-Date: Sun, 10 Feb 2002 19:10:09 EST
Organization: Prodigy Internet http://www.prodigy.com
X-UserInfo1: 
 Q[R_@SVGXZUWSVPXN[O@_WH@YR_B@EXLLBWLOOAF@YUDUWYAKVUOPCW[ML\JXUCKVFDYZKBMSFX^OMSAFNTINTDDMVW[X\THOPXZRVOCJTUTPC\_JSBVX\KAOTBAJBVMZTYAKMNLDI_MFDSSOLXINH__FS^\WQGHGI^C@E[A_CF\AQLDQ\BTMPLDFNVUQ_VM
Date: Mon, 11 Feb 2002 00:10:09 GMT
Xref: archiver1.google.com comp.lang.ada:19846
Date: 2002-02-11T00:10:09+00:00
List-Id: <comp.lang.ada>

When I follow the gnat_ug.htm instructions to generate tree files for
gnatelim, the compiler complains about things that didn't bother it before.
   gnatmake etest
works fine, but
   gnatmke -f -c -gnatc -gnatt etest
results in:

gcc -c -gnatc -gnatt etest.adb
etest.adb:22:17: size for "Copy_Type" too small
etest.adb:24:09: instantiation error at a-unccon.ads:20
etest.adb:24:09: size for "Target" too small
etest.adb:27:03: warning: "dummys" is never assigned a value
gnatmake: "etest.adb" compilation error
   This is on a file etest.adb:
with ada.streams;
with ada.unchecked_conversion;
procedure etest 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 etest;

   What's the trick to using gnatelim?