Ada Compiler Complaint ?

["Dale Pennington" <dalepenn@hiwaay.net>]

Folks, looks like my company news server is acting wierd, so I am also
posting from a home account. If this shows up twice, just ignore the second
one.

I have a chunk of code giving me an error I do not understand. The code is :

package X
...
type Bit is range (0..1);
for Bit'Size use 1;

type Bit_Array is array(1..20000) of Bit;
pragma Pack(Bit_Array);

type Bit_Array_Ptr is access Bit_Array;

package Bit_Io is new Ada.Text_Io.Integer_Io(Bit);

...

procedure Y
...
A_Bit_Array : Bit_Array_Ptr;
begin
...
Bit_Io.Put(Outfile,A_Bit_Array(I),1);
...
end Y;
...
end package X;

The compiler complains for the Bit_Io.Put instruction on the column
A_Bit_Array starts :
expected type "System.Unsigned_Types.Packed_Byte"
found type "Bit" defined at xxx.

Where xxx is the line the type Bit is at.

Anyone know why the compiler is complaining, and what I can do about it ?

Thanks

Dale Pennington