Re: Interrupts handling in ADA

[Ada BRL <ada.brl.2011@gmail.com>]

On 12 Dic, 15:23, björn lundin <b.f.lun...@gmail.com> wrote:
> On 12 Dec, 04:19, a...@att.net wrote:
>
> >   exception
> >     when Socket_Error =>
> >         if Main'Callable then
> >           Main.Dead ( 1 ) ;
> >         end if ;
> >         Close_Socket ( Socket ) ;
> >   end One ;
>
> Another small nit-picking note.
> The call to Main.Dead may still cause Tasking_Error,
> since the result of Main'Callable may have changed
> during the time between the check and the call.
> Unlikely yes, but still.
>
>      when Socket_Error =>
>          begin
>            Main.Dead ( 1 ) ;
>          exception
>            when Tasking_Error => null; -- or printout
>          end;
>          Close_Socket ( Socket ) ;
>    end One ;
>
> This way the call to Main.Dead will succeed or not,
> but Close_Socket will always be called
>
> --
> Björn Lundin

Thanks for the refinements!

Everyone was very helpful...this was the first time for me on Google
Groups and I would say it's far better than any other forum!!!