Problem with protected type

["Ekkehard Morgenstern" <ekkehard.morgenstern@onlinehome.de>]

Hi guys,

I'm an Ada newbie, and I have a problem with a protected type definition
(Ada 95, GNAT 3.15p):

 type CoreEvent is limited private;

 protected BaseEvent is
  entry Wait;
  procedure Signal;
  procedure ManualMode;
  procedure AutoMode;
  procedure Reset;
  function IsSignaled return Boolean;
 private
  EventObject : CoreEvent;
  ManualReset : Boolean := FALSE;
 end BaseEvent;

The compiler reports "premature usage of incomplete type derived from
"BaseEvent"".

What's wrong here?

Can I use a barrier expression that is doing a function call?

The barrier expression in this case would be "IsSignaled( EventObject )",
which is a function defined as "function IsSignaled( Evt : in CoreEvent )
return Boolean".