From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=3.0 tests=BAYES_05 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 18 May 93 21:39:14 GMT
From: ucivax!gateway@ucbvax.Berkeley.EDU  (Kenneth Anderson)
Subject: Re: problem with separate task body
Message-ID: <9305181439.aa07674@Paris.ics.uci.edu>
List-Id: <comp.lang.ada>

In comp.lang.ada you write:

>So, anyone has any idea how to get around this problem?

The following code files compile for me with no problems using
SunAda 1.1(i).

------------------- test.a ---------------------------------------------------
procedure Main is

   testvar : INTEGER;

task One is
   entry First;
end One;

task body One is
begin
   --  whatever
   null;
end;

task Two IS
end Two;

task body Two is separate;

begin
   null;
end;
-------------------------------------------------------------------------------

--------------------- task2.a ------------------------------------------------
separate( main )
task body two is
  BEGIN
     --   some code
     testvar := 1;
     One.First;
     --  etc.
   END Two;
-------------------------------------------------------------------------------

In other words, the code that you showed us (with a few syntax corrections)
should work fine...

Hope this helps,


>Thanks,
>    Janos

Ken
--
-------------------------------------------------------------------------------
-
Ken Anderson                           |  "I'd much rather live in perfection,
U.C. Irvine                            |   than deal with reality." -- Kenbod
-------------------------------------------------------------------------------
-
Happy! Happy! Happy! Joy! Joy! Joy!    |  Practice random kindness and
                         -- Stimpy     |  senseless acts of beauty.
                                       |  -- Anne Herbert
-------------------------------------------------------------------------------
-