Re: embed accept statement in procedures not possible?

[Stephen Leake <stephen_leake@stephe-leake.org>]

Gerd <GerdM.O@t-online.de> writes:

> Hi all,
>
> I work with GNAT 3.15 on Windows XP. My problem is that I want
> structure my program in a way that is not accepted by GNAT, but I
> cannot understand why.
>
> My code (schematic only):
>
> task t is
>   entry e;
> end t;
>
> task body t is
>   procedure p is
>   begin
>     accept e;
>   end p;
> begin
>   p;
> end t;
>
> GNAT tells me: "enclosing body for accept must be a task". But - the
> accept in procedure p _is_ in a task. So why is this not allowed?
>
> My accept statement is a bit longer and needed a few times in
> different situations. Therefore I don't want to "copy and paste" this
> code directly in the task body.

You can make the body of the accept call a shared procedure:

task body t is
  procedure p is
  begin
    ...;
  end p;
begin
  accept e do
    p;
  end;

  ... 

  accept e do
    p;
  end;

  ...
end t;


>
>
> Gerd
>

-- 
-- Stephe