Symbolic trace

mosteo · Jul 24, 2015 · d4e91ab · d4e91ab
1 parent 2824739
commit d4e91ab
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 18 deletions.
diff --git a/src/agpl-debug.adb b/src/agpl-debug.adb
@@ -4,23 +4,10 @@
 
 with Agpl.Conversions;
 with Agpl.Types.Ustrings; use Agpl.Types.Ustrings;
-with GNAT.Exception_Traces;
-with GNAT.Traceback;
-with GNAT.Traceback.Symbolic;
 
 package body Agpl.Debug is
 
-   use type Ustring;
-
-   --------------------------------
-   -- Enable_Symbolic_Tracebacks --
-   --------------------------------
-
-   procedure Enable_Symbolic_Tracebacks is 
-   begin
-      GNAT.Exception_Traces.Trace_On (GNAT.Exception_Traces.Unhandled_Raise);
-      GNAT.Exception_Traces.Set_Trace_Decorator (GNAT.Traceback.Symbolic.Symbolic_Traceback'Access);
-   end Enable_Symbolic_Tracebacks;
+   use type Ustring;   
 
    ------------------------------------------------------------------------
    -- Report                                                             --

diff --git a/src/agpl-debug.ads b/src/agpl-debug.ads
@@ -10,11 +10,9 @@ use  Ada;
 
 package Agpl.Debug is
 
-   --  pragma Preelaborate;
+   pragma Preelaborate;
 
    --   Pool : Gnat.Debug_Pools.Debug_Pool;
-
-   procedure Enable_Symbolic_Tracebacks;
 
    ------------------------------------------------------------------------
    -- Report                                                             --

diff --git a/src/agpl-trace-utils.adb b/src/agpl-trace-utils.adb
@@ -1,6 +1,10 @@
 with Agpl.Calendar.Format;
 with Agpl.Strings;
 
+with GNAT.Exception_Traces;
+with GNAT.Traceback;
+with GNAT.Traceback.Symbolic;
+
 package body Agpl.Trace.Utils is
 
    subtype Warn_Prefix is String (1 .. 4);
@@ -13,6 +17,16 @@ package body Agpl.Trace.Utils is
       Warning     => "<w> ",
       Always      => "!A! ");
 
+      --------------------------------
+   -- Enable_Symbolic_Tracebacks --
+   --------------------------------
+
+   procedure Enable_Symbolic_Tracebacks is
+   begin
+      GNAT.Exception_Traces.Trace_On (GNAT.Exception_Traces.Unhandled_Raise);
+      GNAT.Exception_Traces.Set_Trace_Decorator (GNAT.Traceback.Symbolic.Symbolic_Traceback'Access);
+   end Enable_Symbolic_Tracebacks;
+
    -------------------
    -- Prepend_Level --
    -------------------

diff --git a/src/agpl-trace-utils.ads b/src/agpl-trace-utils.ads
@@ -6,9 +6,9 @@ package Agpl.Trace.Utils is
 
    pragma Elaborate_Body;
 
-
    Filer : aliased File.Object;
 
+   procedure Enable_Symbolic_Tracebacks;
 
    --  Prependers: