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,start
X-Google-Attributes: gid103376,public
From: Dale Stanbrough <dale@goanna.cs.rmit.EDU.AU>
Subject: Program_Error from library level task declaration...
Date: 1996/07/27
Message-ID: <4td2pg$2i9@goanna.cs.rmit.edu.au>#1/1
X-Deja-AN: 171211459
distribution: world
content-type: text/plain; charset=ISO-8859-1
x-xxmessage-id: <AE204CD0D6011B17@obibicut.cs.rmit.edu.au>
organization: Royal Melbourne Institute of Technology
mime-version: 1.0
newsgroups: comp.lang.ada
Date: 1996-07-27T00:00:00+00:00
List-Id: <comp.lang.ada>


Hi,

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;


with screen_lock;
procedure main is
begin
	null;
end;

However this causes a program_error. I'm at a bit of a loss as
to how to fix this. Does anyone have any bright ideas?

Dale