Re: Error "exception not permitted here" when putting EXCEPTION in a loop

["Björn Lundin" <b.f.lundin@gmail.com>]

On 2015-07-17 17:47, Trish Cayetano wrote:
> Hi, 
> 
> I am getting error "exception not permitted here" when running below in a loop. 
> Well it runs if I put it outside the loop but I need it inside the loop... 
> 
>            exception
>             when ADA.IO_EXCEPTIONS.DATA_ERROR =>
>             Ada.Text_IO.Put_Line ("Try a number from 1 to 4, Buddy");
> 
> Thanks in advance for your help...
> 

-- basic procedure
procedure bla is
begin
  null;
exception
  when Constraint_error => null;
end bla;



procedure bla is
begin

  -- catch 1 exception and then fall out of loop
  begin
    loop
      do_stuff;
    end loop;
  exception
    when Constraint_error => null;
  end;

-- or perhaps

  -- catch exception outside every invocation of do_stuff
  -- not falling out of loop
  loop
    begin
      do_stuff;
    exception
      when Constraint_error => null;
    end;
  end loop;


exception
  when Constraint_error => null;
end bla;




-- 
--
Björn