Re: Q re pack & aliased

[tmoran@acm.org]

>The first True-Color-VGA had 24-bit-sized pixels. How would you have
>addressed them?
  I have pre-Gnat 3.15p programs that ran with 24 bit pixels, so this
is apparently a new problem.  Would someone with a newer Gnat please
try the program below?  On 3.15p it gives a warning on aliased, and ignores
the packing.  Removing the word "aliased" makes it pack correctly.

with ada.text_io;
procedure testpack is
  type triples is range 0 .. 2**24-1;
  for triples'size use 24;
  type bunches is array(integer range <>) of aliased triples;
  pragma pack(bunches);
  x : bunches(1 .. 10);
begin
  ada.text_io.put_line(integer'image(x'size/80)
                       & " should = 3, not 4");
end testpack;