RE: Package name

[tmoran@acm.org]

>The Aonix ObjectAda compiler on Windows NT, returns the Package,
>Procedure, and line number when Exception_Information is called.
     In Janus Ada:
with Ada.Exceptions,
     Ada.Text_Io;

procedure Show_Me is

  procedure Show(Msg : in String) is
    E : exception;
  begin
    raise E;
  exception
    when Debug : E =>
      Ada.Text_Io.Put_Line(Msg & ":"
        & Ada.Exceptions.Exception_Information(Debug));
  end Show;

  procedure Testp is
  begin
    Show("inside testp");
    Show("still in testp");
  end Testp;

begin
  Show("main program");
  Testp;
end Show_Me;

gives:
main program:SHOW_ME.SHOW.E
   On Line Number 9 In SHOW_ME.SHOW
Called from line number 23 In SHOW_ME

inside testp:SHOW_ME.SHOW.E
   On Line Number 9 In SHOW_ME.SHOW
Called from line number 18 In SHOW_ME.TESTP
Called from line number 24 In SHOW_ME

still in testp:SHOW_ME.SHOW.E
   On Line Number 9 In SHOW_ME.SHOW
Called from line number 19 In SHOW_ME.TESTP
Called from line number 24 In SHOW_ME

Of course not all compilers are this helpful, so the PragmAda
generic approach may be preferable.