Re: does gnatelim work?

[tmoran@acm.org]

>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.