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!utgpu!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!gatech!gitpyr!tynor
From: tynor@pyr.gatech.EDU (Steve Tynor)
Newsgroups: comp.lang.ada
Subject: Re: Ada language revision
Keywords: exceptions
Message-ID: <6793@pyr.gatech.EDU>
Date: 18 Nov 88 16:39:47 GMT
References: <44449@beno.seismo.CSS.GOV> <3563@hubcap.UUCP> <733@marvin.cme-durer.ARPA>
Reply-To: tynor@pyr.UUCP (Steve Tynor)
Organization: Georgia Institute of Technology
List-Id: <comp.lang.ada>

In article <733@marvin.cme-durer.ARPA> leake@cme-durer.ARPA (Stephe Leake) writes:
>What's wrong with a small if statement? Personally, I would like to
>have an EXCEPTION_IO that would let me print the name of an exception.

Here, here, etc.  I once worked with the Telesoft (?) compiler on an Eclipse
that had a package allowing you to find out what the current exception was.
It helped out immensely during debugging:

    ...
    exception
       when others =>
	   text_io.put_line ("Opps! exception " & CURRENT_EXCEPTION'IMAGE &
			      " in procedure XXX.");
	   raise;
    end XXX;

Unfortunately, I now use VAX Ada and Alsys, so I can't do this.  

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Progress means replacing something wrong with something more subtly wrong.
                     
    Steve Tynor
    Georgia Tech Research Institute
    tynor@gitpyr.gatech.edu