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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx01.iad01.newshosting.com!newshosting.com!83.128.0.12.MISMATCH!news-out2.kabelfoon.nl!newsfeed.kabelfoon.nl!xindi.nntp.kabelfoon.nl!newsfeed.freenet.de!newsfeed01.chello.at!newsfeed.arcor.de!newsspool2.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Tue, 01 Sep 2009 02:19:06 +0200
From: Georg Bauhaus <see.reply.to@maps.futureapps.de>
Reply-To: rm.tsoh-bauhaus@maps.futureapps.de
User-Agent: Thunderbird 2.0.0.23 (X11/20090817)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Q: Line_IO
References: <4a9b045a$0$31875$9b4e6d93@newsspool3.arcor-online.net>
 <1a4usf20z4mxa.1vct95fmrcs6h.dlg@40tude.net>
 <4a9c6320$0$31347$9b4e6d93@newsspool4.arcor-online.net>
In-Reply-To: <4a9c6320$0$31347$9b4e6d93@newsspool4.arcor-online.net>
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Message-ID: <4a9c687a$0$31341$9b4e6d93@newsspool4.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 01 Sep 2009 02:19:06 CEST
NNTP-Posting-Host: 6325b331.newsspool4.arcor-online.net
X-Trace: 
 DXC=591EDPUE[G]\9P[:DUn00Q4IUK<Cl32<Q4Fo<]lROoRQ^YC2XCjHcbYTV61TSH=0E_A:ho7QcPOVSMPlCNiSHYH]Y8TN?C_O<FQ
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:8081
Date: 2009-09-01T02:19:06+02:00
List-Id: <comp.lang.ada>

Georg Bauhaus wrote:
>    procedure Print_2 (Item : String) is
>       subtype Index is Stream_Element_Offset range
>         Stream_Element_Offset(Item'First)
>         .. Stream_Element_Offset(Item'Last);
>       subtype XBytes is Stream_Element_Array (Index);
>       Item_Bytes: XBytes;
>       for Item_Bytes'Address use Item'Address;
>    begin
>       Stream_IO.Write (Stdout, Item_Bytes);
>       Stream_IO.Write (Stdout, Separator_Bytes);
>    end Print_2;

*** line_io.ada	old
--- line_io.ada	new
***************
*** 78,79 ****
--- 78,80 ----
        Item_Bytes: XBytes;
+       pragma Import (Ada, Item_Bytes);
        for Item_Bytes'Address use Item'Address;