aaa_0.2.6_dfd6339b/src/aaa-debug.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
with Ada.Exceptions;

package AAA.Debug with Preelaborate is

   function Image (E : Ada.Exceptions.Exception_Occurrence) return String;
   --  Just concatenate the exception name, message and information

   procedure Put_Exception (E           : Ada.Exceptions.Exception_Occurrence;
                            Title       : String := "AAA EXCEPTION DUMP:";
                            Stack_Trace : Boolean := True);
   --  Print Image and optionally Stack_Trace

   function Stack_Trace return String;
   --  Return a string containing the call stack. To keep things Preelaborable,
   --  a fake exception is generated and the exception information retrieved.
   --  Hence efficacy of this will be dependent on your compilation switches.

end AAA.Debug;