Re: Help with Exceptions!

[Dave Jones <davedave@io.com>]

George F.Rice wrote:
> 
> Dave Jones wrote:
> 
> : procedure test is
> :         x:integer ;
> : begin
> :         begin
> :                 x := 10000000 ;
> :         exception
> :                 when CONSTRAINT_ERROR =>
> :                         goto Next_Block ;
> :         end ;
> : <<Next_Block>>
> :         begin
> :                 x := 3 ;
> :         exception
> :                 when CONSTRAINT_ERROR =>
> :                         RETURN ;
> :         end ;
> :         RETURN ;
> : end test;
> 
> The goto is unnecessary; when the exception handler completes,
> control will pass to the next statement anyway.
> 
That's very true.  I was just trying to show what could be done
with regard to jumping out of a block where an exception has 
occured.  

In any case, like I said in my post, I don't recommed this way of 
approaching the problem.  In fact, I actually regret making
that post because, every time I have seen an Ada program with a 
"goto", I have always been able to find a better way to write the
program; so I suppose that I really should not be gently encouraging
people to use "goto".  

Most others seem to have an experience similar to mine:  "goto" means 
you need to change your approach.  So I was wondering, has anyone out
there ever encountered a situation where "goto" was actually necessary?

-- Dave Jones