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.6 required=5.0 tests=BAYES_40,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!mit-eddie!bu-cs!encore!multimax
From: guzzi@multimax (Mark D. Guzzi)
Newsgroups: comp.lang.ada
Subject: Re: shared variable between tasks
Message-ID: <9538@xenna.Encore.COM>
Date: 29 Jun 89 12:12:56 GMT
References: <8610@june.cs.washington.edu>
Sender: news@Encore.COM
Reply-To: guzzi@multimax (Mark D. Guzzi)
Organization: Encore Computer Corp
In-reply-to: tancheeh@fred.cs.washington.edu (Nicholas Tan Chee Hiang)
List-Id: <comp.lang.ada>

Unprotected never appears to be updated because you read it once in
task Access_Variable when you initialize Letter, then you never read it
again.   Try this instead:

	  task body Access_Variable is
	--    Letter : Character := Unprotected;
	  begin
	    loop
	--      Put (Letter);
	      Put (Unprotected);
	      delay 3.0;
	    end loop;
	  end Access_Variable;
-- 
				       -- Mark Guzzi
					  Encore Computer Corporation
					  guzzi@encore.com
					     (or guzzi@multimax.encore.com)