From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,ba0587ecc5989bed X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-03-25 11:01:12 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-xfer.siscom.net!not-for-mail Newsgroups: comp.lang.ada Subject: Re: Another problem with stream reading. From: Dan Andreatta References: Message-ID: User-Agent: Xnews/4.11.09 X-Original-NNTP-Posting-Host: 129.252.151.109 Date: 25 Mar 2002 12:01:49 -0700 X-Original-Trace: 25 Mar 2002 12:01:49 -0700, 129.252.151.109 X-COMPLAINTS: Report abuse to abuse@mhogaming.com Organization: Newshosting.com - Highest quality at a great price! www.newshosting.com NNTP-Posting-Date: 25 Mar 2002 19:01:09 GMT NNTP-Posting-Host: 5ae1337d.news.newshosting.com X-Trace: DXC=Q]5K\jhhBED\_H]cPGlAaHX`1N4>^k1LCiF6BbIV4YYBLnHEXCOOR@OH\@^Q7U1N3OM;lF[5C2PfHo5dZhTdOGRMoh3?Aa9Y?3B X-Complaints-To: abuse@newshosting.com Xref: archiver1.google.com comp.lang.ada:21651 Date: 2002-03-25T19:01:09+00:00 List-Id: Erik Sigra 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