Re: Task question

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

Larry Coon wrote in message <3439D647.7C43@home.com>...
>I'm having a problem getting a task body to work
......... <snip> ........
>Am I missing an obvious way to do what I want?
>
>Larry Coon
>University of California
>larry@fs2.assist.uci.edu
>and lmcoom@home.com

Yes.  Make your task body look like:

task body x is
  Finished : Boolean := False
begin
   loop
      select
         accept my_rendezvous (some_data: some_data_type) do
            -- Rendezvous stuff
         end my_rendezvous;
      or
         accept done do
            Finished := True;
         end done;
      end select;
      exit when Finished;
   end loop;
   -- Now do more stuff.
end x;

David C. Hoos, Sr.,
david.c.hoos.sr@ada95.com