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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3cfb384718eb4f7a
X-Google-Attributes: gid103376,public
From: "James M. Darlack" <jmd@access.digex.net>
Subject: Testing exception handlers
Date: 1998/03/05
Message-ID: <Pine.SUN.3.96.980305114226.2982B-100000@access2.digex.net>#1/1
X-Deja-AN: 331128529
References: <34EEFF9C.1D01FA5D@stellar1.com> <1998Feb21.194544.1@eisner>
 <34ef8225.83906260@enews.newsguy.com> <34F007C5.7D9F2D7@cl.cam.ac.uk>
 <m3sopbtwhj.fsf@fred.muc.de> <m3afbj1q8s.fsf@localhost.localdomain>
 <6cqqf7$or1$1@plug.news.pipex.net>
Mime-Version: 1.0
Reply-To: "James M. Darlack" <jmd@access.digex.net>
X-Sender: jmd@access2.digex.net
Content-Type: TEXT/PLAIN; charset=US-ASCII
Organization: DIGEX, Inc.
Newsgroups: comp.lang.ada
Date: 1998-03-05T00:00:00+00:00
List-Id: <comp.lang.ada>


Hi!

Im writing a tool(s) for testing unhandled exceptions, and standard
exceptions such as PROGRAM, TASKING, and STORAGE,for an Intel embedded
system.  My basic tool is a procedure shown at the end of this email.

Using the basic tool, I can invoke unhandled interupt exceptions and the
three standard exceptions.  However, what do I do to simulate the standard
exceptions within the code without the test procedure?  I would like to
create another tool(s), that would invoke a real tasking, programming, and
storage errors.

I contacted the compiler manufacturer, and they were vague... to say the
least. 

I am a C and assembler programmer, with Ada experience from over 10 years
ago.  So any help would be appreciated.

Thanks!  

Jim   

Note! Please respond to jmd@darlack.com

To use the test tool, include it in the package, and re-compile and link.
Set a breakpoint for the start of the procedure, step until you can change
the TEST_NUM, and single step or run until the exception is invoked.

  procedure UE_TEST is
    TEST_NUM : INTEGER := 99; --change to the case that matches the
                              --excpetion, that you want to invoke.
  begin
    case TEST_NUM is
      when  0 => INT0;  --UNHANDLED_EXCEPTION_000
      when  1 => INT1;  --UNHANDLED_EXCEPTION_001
       "
       "
      when 20 => raise PROGRAM_ERROR;
      when 21 => raise STORAGE_ERROR;
      when 22 => raise TASKING_ERROR;
      when others => null;
    end case;
  end UE_TEST;