Re: Protected Type compiler complaint

[Simon Wright <simon@pushface.org>]

NiGHTS <nights@unku.us> writes:

> When I compile it complains that "protected declaration cannot be used
> as compilation unit" on line 1 of test.ads. So I remove those files
> from the project source files options menu. Then when I compile again
> it complains about "test.ads not found" on line 3 of main.adb.

A protected declaration cannot be used as a compilation unit; it has to
be declared within one.

> Here is a summarized view of what my test.ads looks like:
>
>    protected type Test is procedure DoSomething; end Test;

   package Test is
      protected type P is
        procedure Do_Something;
      end P;
   end Test;

> And here is a summarized view of what my main.adb looks like:
>
>    with Test; use Test;
>
>    procedure main is begin Test.DoSomething; end;

You made Test a protected *type* (and I've suggested Test.P), so you
need to declare a protected *object* of that type.

   with Test;
   procedure Main is
      O : Test.P;
   begin
      O.Do_Something;
   end Main;