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=0.7 required=5.0 tests=BAYES_00,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
Path: utzoo!attcan!uunet!ns-mx!iowasp.physics.uiowa.edu!maverick.ksu.ksu.edu!zaphod.mps.ohio-state.edu!usc!snorkelwacker!bloom-beacon!
  eru!luth!sunic!bmc.uu.se!kuling!mizar.docs.uu.se!daniel
From: daniel@mizar.docs.uu.se (Daniel Wengelin)
Newsgroups: comp.lang.ada
Subject: Re: Optional Sequence of Statements Before Exception Handlers
Keywords: exception handling
Message-ID: <1581@kuling.UUCP>
Date: 3 Jul 90 09:51:43 GMT
References: <34741@vrdxhq.verdix.com> <12427@june.cs.washington.edu>
Sender: news@kuling.UUCP
Reply-To: daniel@mizar.docs.uu.se (Daniel Wengelin)
List-Id: <comp.lang.ada>

In article <12427@june.cs.washington.edu>, pattis@cs.washington.edu
(Richard Pattis) writes:
 EXCEPTION
   WHEN OTHERS =>
       A;
       B;
       BEGIN
         RAISE;
       EXCEPTION
          WHEN foo_error => NULL;
          WHEN bar_error => C;
          WHEN others    => D;
       END;
       -- Can put post statements here (done for all exceptions)
 END;
 PS: Actually, I've never programmed this, but I have thought about it; if it
 won't work, I'm sure some kind soul will tell me so, loudly.

The code above was tested on a Sun3/60 using Telesofts TELEGEN2 SunAda 1.4.
It works just fine !

Daniel Wengelin.