From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,deeb88b0e7eede4f
X-Google-Attributes: gid103376,public
From: "George F.Rice" <rice@mmc1001.lfwc.lockheed.com>
Subject: Re: Help with Exceptions!
Date: 1996/05/10
Message-ID: <31935435.3C00@mmc1001.lfwc.lockheed.com>#1/1
X-Deja-AN: 154124684
references: <4mmimq$s4r@hatathli.csulb.edu> <318F94D9.35AB@io.com>
content-type: text/plain; charset=us-ascii
organization: Lockheed Martin Tactical Aircraft Systems
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.01 (X11; I; SunOS 5.4 sun4m)
Date: 1996-05-10T00:00:00+00:00
List-Id: <comp.lang.ada>


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.

In general, the lack of a RESUME or RESUME NEXT could be considered
a feature rather than an omission.  Basic (my first language) doesn't
support structured exception handling like Ada or C++, an unfortunate 
omission on its part.

-- 
George

Quality means never having to use a sorry tool (tm)