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.1 required=5.0 tests=BAYES_20,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b8d84902e214ddae,start
X-Google-Attributes: gid103376,public
From: ekarak@softlab.ntua.gr (Elias Karakoulakis)
Subject: Help on Protected Objects..
Date: 1996/06/21
Message-ID: <31ca8b58.6226611@news.ntua.gr>#1/1
X-Deja-AN: 161372714
distribution: World
organization: National Technical University of Athens
reply-to: ekarak@softlab.ntua.gr
newsgroups: comp.lang.ada
Date: 1996-06-21T00:00:00+00:00
List-Id: <comp.lang.ada>


Hello, I'm having a problem on protected objects and tasks.
I've built a client/server program that simulates a Bank (deposits,
withdrawals etc.) for a Course Exercise. I use a Protected Type to
handle critical actions (i.e. reading and writing to accounts), and
I've found out that calls to protected procedure WriteAccount, are
sometimes silently ignored, (I suspect when the object they try to
alter is in use.). This is my declaration part:
	protected type Treasury is
	    function ReadAccount(account:in integer) return integer;
	    procedure WriteAccount(account,amount:in integer);
	end Treasury;
How can I set the calling part to wait until the account is free?

TIA