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,631686271a29a357
X-Google-Attributes: gid103376,public
From: "Theodore E. Dennison" <dennison@escmail.orl.mmc.com>
Subject: Re: Common Error/Exception Handler
Date: 1996/05/10
Message-ID: <3193ABC6.794BDF32@escmail.orl.mmc.com>#1/1
X-Deja-AN: 154230957
references: <gauthier-2404961547320001@164.81.60.62>
 <4mg905$9ll@newsbf02.news.aol.com> <318BBAF4.41C67EA6@escmail.orl.mmc.com>
 <Dr30w9.K0z@bton.ac.uk>
content-type: text/plain; charset=us-ascii
organization: Lockheed Martin Information Systems
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.0 (X11; I; SunOS 4.1.3_U1 sun4m)
Date: 1996-05-10T00:00:00+00:00
List-Id: <comp.lang.ada>


John English wrote:
> 
> Theodore E. Dennison (dennison@escmail.orl.mmc.com) wrote:
> : To be honest, I'm suprised more compilers or linkers don't offer an
> : option to produce a stack dump (although core dumps can be pretty
> : useful too).
> 
> One of the things that really annoys me about GNAT is the ubiquitous
> "raised unhandled exception" message.  A bit more detail (exception
> name as a minimum, file name & source line number preferably) would
> make life *sooo* much easier...

I'll allow the annoyance, but don't single out GNAT. It truly annoys
me that I have to methodically add the following chunk of code to the
outer body of EVERY task and main routine I ever write under any VADS
compiler:

   exception
      when others =>
         V_I_Except.Exception_Current (ID => Exception_ID, PC => Exception_PC);
         
         Text_IO.Put_Line (Time_Stamp & ":" & Unit_Name & " terminating due to");
         Text_IO.Put_Line ("unhandled exception " & 
            V_I_Except.Exception_Name (Exception_ID) & " raised at PC " &
            Unsigned_Types.Unsigned_Integer'Image
               (To_Unsigned_Integer(Exception_PC))
            );

      raise;

If I have to write this same chunk of code ONE MORE TIME I think I'll add it to the
emacs-ada bindings!!! (Its more constructive than simply puking).

-- 
T.E.D.          
                |  Work - mailto:dennison@escmail.orl.mmc.com  |
                |  Home - mailto:dennison@iag.net              |
                |  URL  - http://www.iag.net/~dennison         |