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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,dc094c5990573c85
X-Google-Attributes: gid103376,public
From: bobduff@world.std.com (Robert A Duff)
Subject: Re: Program_Error from library level task declaration...
Date: 1996/07/31
Message-ID: <DvEsMq.I48@world.std.com>#1/1
X-Deja-AN: 171218632
references: <4td2pg$2i9@goanna.cs.rmit.edu.au>
 <31FE562A.237C228A@escmail.orl.mmc.com>
organization: The World Public Access UNIX, Brookline, MA
newsgroups: comp.lang.ada
Date: 1996-07-31T00:00:00+00:00
List-Id: <comp.lang.ada>


>Dale Stanbrough wrote:
>> I've tried to create a library level semaphore to be used
>> for screen locking. The semaphore is the standard implementation
>> using a task (yes, I know a protected object would be better).
>> 
>> The declaration is...
>> 
>> with semaphores; use semaphores;
>> package screen_lock is
>> 
>>         screen:semaphore;
>> 
>> end screen_lock;

It looks like you're activating a task whose body is not yet elaborated
(see 3.11(12)).  You should put pragma Preelaborate or Elaborate_Body on
the Semaphores package.  If that's illegal (can't tell without seeing
it), put pragma Elaborate_All(Semaphores) on the Screen_Lock package.

- Bob