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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Niklas Holsti <niklas.holsti@tidorum.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Problem with Unbounded Strings
Date: Fri, 4 Dec 2015 20:00:43 +0200
Organization: Tidorum Ltd
Message-ID: <dce2mcFiie1U1@mid.individual.net>
References: <e28c35a7-5f41-4beb-afb3-eb4fc9da9384@googlegroups.com>
 <17lytwwdndg6u.1o21jn6ox2sd4$.dlg@40tude.net>
 <2c489db5-0d14-4a1e-9883-cf018c3a0b83@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: individual.net WQoYVNWKMzoQq1O5Mn3wuA3uHosiCOeBmUMGf7Ip/RIYhAauso
Cancel-Lock: sha1:Y3v1evsp2rRbU+AxRqoOF9l+qHw=
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8; rv:38.0)
 Gecko/20100101 Thunderbird/38.4.0
In-Reply-To: <2c489db5-0d14-4a1e-9883-cf018c3a0b83@googlegroups.com>
Xref: news.eternal-september.org comp.lang.ada:28634
Date: 2015-12-04T20:00:43+02:00
List-Id: <comp.lang.ada>

On 15-12-04 18:53 , Laurent wrote:
> I don't use append? What is this then doing? Where U_B = ada.strings.unbound...
>
>                   U_B.Append (Source   => Buffer,
>                              New_Item => Line (5 .. Line'Last));

Dmitry is (as usual) trying to teach (or preach) his own style of 
coding, and is not really looking at your problem.

Meanwhile, are you sure that the statement

    while not Ada.Text_IO.End_Of_File (Log_File) loop

should be using "Log_File", and not the "File" parameter?

(To be honest, I did not detect this error until I tried to make a 
compilable version of your code.)

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .