Another problem with stream reading.

[Erik Sigra <sigra@home.se>]

Now I have the program

with Ada;                   use Ada;
with Text_IO;               use Text_IO;
with Ada.Streams;           use Streams;
with Ada.Streams.Stream_IO; use Stream_IO;

procedure Streamtest is
   The_File : Stream_IO.File_Type;
begin
   Open (The_File, In_File, "data");
   declare
      The_Stream : Stream_Access := Stream (The_File);
      type Byte is range 0 .. 255;
      for Byte'Size use 8;
      B : Byte;
   begin
      while not End_Of_File (The_File) loop
         Byte'Read (The_Stream, B);
         Put_Line ("Read B = " & B'Img);
      end loop;
   end;
end Streamtest;


The data file contains
"����" (hexadecimal "ff fe fd fc") (decimal "255 254 253 252). The output of 
the program is:
Read B =  255
Read B =  253


The problem is that it reads 2 bytes instead of 1 and thus skips each second 
byte. Why?