Exception'IMAGE in Ada9X?

[ucivax!gateway@ucbvax.Berkeley.EDU (Kenneth Anderson)]

Hi,

Does anyone know if they plan to have a feature in Ada9X that would get
rid of code that looks like this...

procedure Buggy is
begin
 ...
exception
  when CONSTRAINT_ERROR => Text_IO.PUT_LINE("CONSTRAINT_ERROR in Buggy");
  when NUMERIC_ERROR    => Text_IO.PUT_LINE("NUMERIC_ERROR in Buggy");
  when STORAGE_ERROR    => Text_IO.PUT_LINE("STORAGE_ERROR in Buggy");
  when others           => Text_IO.PUT_LINE("Fatal Error in Buggy");
end Buggy;

and replace it with something like

procedure Buggy is
begin
 ...
exception
   when others => Text_IO.PUT_LINE(exception'IMAGE);
end Buggy;


Notes:  The above code does not imply that only buggy code should have
        exception handlers.

        I realize that I used 'IMAGE in the wrong fashion. I.E. Normally
        you would see something like T'IMAGE(Var_of_type_T). I just
        wanted to convey the notion of being able to print out what
        the exception is without coding a seperate when statement
        for all possible exceptions (including user defined exceptions).

Thanks in advance,

Ken Anderson