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!.POSTED!not-for-mail
From: Simon Clubley <clubley@remove_me.eisner.decus.org-Earth.UFP>
Newsgroups: comp.lang.ada
Subject: Re: Help with an errant 'IF' statement please.
Date: Sun, 30 Nov 2014 11:18:16 +0000 (UTC)
Organization: A noiseless patient Spider
Message-ID: <m5eudj$mn7$1@dont-email.me>
References: <af35fb37-1471-424c-aff3-322886b32774@googlegroups.com>
 <d1945ff6-c57d-44be-bd14-b6c311d78ef0@googlegroups.com>
 <0a70a8a3-45fc-440b-999b-f9cfbc6ac7f9@googlegroups.com>
 <ebtj7a5qjf4pr0le7sir7kegrj1tqik79q@4ax.com>
 <8ecc1fb7-615c-4b7e-83e3-866a830a59a5@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 30 Nov 2014 11:18:16 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="65c9ef33762b391598bd04918f053dc7";
	logging-data="23271"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+6H4RhiMdZXWAVXK9ZdlzGFwfvtU4SCDM="
User-Agent: slrn/0.9.9p1 (Linux)
Cancel-Lock: sha1:Z5oNluU9d00sCvXJci5Y7zJkp98=
Xref: news.eternal-september.org comp.lang.ada:23791
Date: 2014-11-30T11:18:16+00:00
List-Id: <comp.lang.ada>

On 2014-11-30, Austin Obyrne <austin.obyrne@hotmail.com> wrote:
> On Saturday, November 29, 2014 4:53:48 PM UTC, Dennis Lee Bieber wrote:
>> On Sat, 29 Nov 2014 07:05:09 -0800 (PST), Austin Obyrne
>> <austin.obyrne@hotmail.com> declaimed the following:
>> 
>> 
>> >LOOP
>> >  EXIT WHEN NextChar = Sentinel;
>> >
>> 	What is the definition of "NextChar", since I don't see it changing
>> inside this loop...
>>  
>
> This is the relevant source code at the very start of the program in
> question,
>
>   Total := Total+1;
>   Ada.Text_IO.Get(Item => NextChar);
>   Image(Total):= NextChar;
>  
> 'NextChar' is the variable name given to each character being read
> in from the keyboard.
>

[snip]

> Sorry for taking so long in coming back and thanks for your help - Austin.

Do what I told you to do and write a stripped down standalone test program
around the fragment you posted.

You will then see what Dennis (and myself) are telling you.

I could tell you what the problem is, but I think it's more important for
you to understand how to find this yourself.

Simon.

-- 
Simon Clubley, clubley@remove_me.eisner.decus.org-Earth.UFP
Microsoft: Bringing you 1980s technology to a 21st century world