Re: Boolean array representation question

["John P. Lippiello" <lippiell@ma.aonix.com>]

The size 40 is to be expected since you have an array of 5 booleans and each
boolean takes 8 bits.  In order to get the size down to 8 bits, try the
following line:

with Ada.Text_IO; use Ada.Text_IO;
procedure Test_1 is
   type Bit_Array is array (Natural range <>) of Boolean;
   pragma pack(Bit_Array); -- ADD THIS LINE
   My_Array : Bit_Array (0 .. 4) := (others => False);
begin
   Put_Line ("The size of Bit_Array is" &
   Integer'Image (My_Array'Size));
end Test_1;


Jerry van Dijk wrote in message <880041511.80snx@jvdsys.nextjk.stuyts.nl>...
>When compiling the following program:
>
>   with Ada.Text_IO; use Ada.Text_IO;
>
>   procedure Test_1 is
>      type Bit_Array is array (Natural range <>) of Boolean;
>      My_Array : Bit_Array (0 .. 4) := (others => False);
>   begin
>      Put_Line ("The size of Bit_Array is" &
>        Integer'Image (My_Array'Size));
>   end Test_1;
>
>both GNAT and OA on NT report the size as 40 so I wonder if
>this is some kind of magic number and where it is coming from.
>Thanks,
>Jerry.
>
>--
>
>-- Jerry van Dijk | Leiden, Holland
>-- Consultant     | Team Ada
>-- Ordina Finance | jdijk@acm.org