Testing exception handlers

["James M. Darlack" <jmd@access.digex.net>]

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;