Re: Another problem with stream reading.

[Dan Andreatta <andreatta@mail.chem.sc.edu.REMOVEME>]

Erik Sigra <sigra@home.se> wrote in
news:mailman.1017082205.9199.comp.lang.ada@ada.eu.org: 

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

Don't know exactly why, but is you modify:

type Byte is mod 256;

it works properly.

Dan