Re: Q: Line_IO

[Georg Bauhaus <see.reply.to@maps.futureapps.de>]

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;