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=-2.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,2a9b16f914dd588
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-03-05 12:58:05 PST
Path: 
 supernews.google.com!sn-xit-03!supernews.com!freenix!enst!enst.fr!not-for-mail
From: Erik Sigra <sigra@home.se>
Newsgroups: comp.lang.ada
Subject: Re: How do I free unbounded strings?
Date: Mon, 5 Mar 2001 21:55:52 +0100
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.983825825.21390.comp.lang.ada@ada.eu.org>
References: <mailman.983811905.13183.comp.lang.ada@ada.eu.org>
 <3AA3FBA8.F6E92BCA@acm.org>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain;
  charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Trace: avanie.enst.fr 983825825 52345 137.194.161.2 (5 Mar 2001 20:57:05
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Mon, 5 Mar 2001 20:57:05 +0000 (UTC)
To: comp.lang.ada@ada.eu.org, Jeffrey Carter <jrcarter@acm.org>
Return-Path: <sigra@home.se>
X-Mailer: KMail [version 1.2]
In-Reply-To: <3AA3FBA8.F6E92BCA@acm.org>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0
Precedence: bulk
X-Reply-To: sigra@home.se
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto: comp.lang.ada-request@ada.eu.org?subject=subscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto: comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
List-Archive: <http://ada.eu.org/pipermail/comp.lang.ada/>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
Xref: supernews.google.com comp.lang.ada:5441
Date: 2001-03-05T21:55:52+01:00

m�ndagen den  5 mars 2001 21:48 skrev Jeffrey Carter:
> Erik Sigra wrote:
> >      while not End_Of_Line loop null; -- Second Pause
> >      end loop;
> >      Skip_Line;
>
> ...
>
> >      while not End_Of_Line loop null; -- Third Pause
> >      end loop;
> >      Skip_Line;
>
> Why do you have these null loops in your program? Skip_Line will block
> the task until the user enters a line terminator.

Thanks for the remark. I haven't used Ada for many months now so I'm a little 
rusty. I saw that the probram used 0% CPU in the null loops and my desktop 
environment was as resoposive as ever so I thought it was acceptable.