Re: Strange warning message

[reinert <reinkor@gmail.com>]

On Monday, November 27, 2017 at 10:09:15 AM UTC+1, gautier...@hotmail.com wrote:
> > Now, *in your example* the warning is justified, since you make a useless assignement :-) .
> 
> Ooops - didn't see you were starting a task in that case.
> But you could avoid using a pointer at all with
> 
>   declare
>     local : test1_t; 
>   begin
>     null;
>   end;
> 
> The only case I need an useless assignement is when I call a C function (for its side effects) and don't use the result.

As you see for this program (below), the task does not behave like "fire and forget". This was the intention for my use of "test1(1) := new test1_t;".

reinert


with Text_IO;
procedure test1l is

  task type test1_t;

  task body test1_t is
  begin
    Text_IO.Put_Line("Hello there!");
    delay 5.0;
  end test1_t;

begin

  declare
   test1 : test1_t;
  begin
   null;
  end;

  Text_IO.Put_Line(" Here we go ");

end test1l;