grt: split grt-errors, disp current process.

1 files changed, 5 insertions, 42 deletions

diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads
index f97d25573..175609cf9 100644
--- a/src/grt/grt-errors.ads
+++ b/src/grt/grt-errors.ads
@@ -77,10 +77,6 @@ package Grt.Errors is
    procedure Error (Str : String);
    pragma No_Return (Error);
 
-   --  Complete error message with a call stack.  SKIP is the number of
-   --  frame to skip, 0 means the caller of this procedure is displayed.
-   procedure Error_Call_Stack (Str : String; Skip : Natural);
-
    procedure Error (Str : String;
                     Filename : Ghdl_C_String;
                     Line : Ghdl_I32);
@@ -98,41 +94,6 @@ package Grt.Errors is
    procedure Info_S (Str : String := "");
    procedure Info_E;
 
-   --  Backtrace used to report call stack in case of error.
-   --  Note: for simplicity we assume that a PC is enough to display the
-   --  corresponding file name, line number and routine name.  Might not be
-   --  true on some platforms.
-   --  There is a C version of this record in grt_itf.h
-   type Integer_Address_Array is array (Natural range <>) of Integer_Address;
-   type Backtrace_Addrs is record
-      Size : Natural;
-      Skip : Natural;
-      Addrs : Integer_Address_Array (0 .. 31);
-   end record;
-   pragma Convention (C, Backtrace_Addrs);
-
-   type Backtrace_Addrs_Acc is access Backtrace_Addrs;
-
-   --  Save the current backtrace to BT, but skip SKIP frame.  0 means that
-   --  the caller of this procedure will be in the backtrace.
-   procedure Save_Backtrace (Bt : out Backtrace_Addrs; Skip : Natural);
-   pragma Import (C, Save_Backtrace, "grt_save_backtrace");
-
-   --  Finish error message with a call stack.
-   procedure Error_E_Call_Stack (Bt : Backtrace_Addrs);
-   pragma No_Return (Error_E_Call_Stack);
-
-   procedure Error_E_Call_Stack (Bt : Backtrace_Addrs_Acc);
-   pragma No_Return (Error_E_Call_Stack);
-
-   --  Display an error message for an overflow.
-   procedure Grt_Overflow_Error (Bt : Backtrace_Addrs_Acc);
-   pragma No_Return (Grt_Overflow_Error);
-
-   --  Display an error message for a NULL access dereference.
-   procedure Grt_Null_Access_Error (Bt : Backtrace_Addrs_Acc);
-   pragma No_Return (Grt_Null_Access_Error);
-
    --  Called at end of error message.  Central point for failures.
    procedure Fatal_Error;
    pragma No_Return (Fatal_Error);
@@ -162,13 +123,15 @@ package Grt.Errors is
    --  If true, an error is expected and the exit status is inverted.
    Expect_Failure : Boolean := False;
 
+   Note_Severity    : constant Integer := 0;
+   Warning_Severity : constant Integer := 1;
+   Error_Severity   : constant Integer := 2;
+   Failure_Severity : constant Integer := 3;
+
    --  Internal subprograms, to be called only by the symbolizer.
    procedure Put_Err (C : Character) renames Diag_C;
    procedure Put_Err (Str : String) renames Diag_C;
    procedure Put_Err (Str : Ghdl_C_String) renames Diag_C;
    procedure Put_Err (N : Integer) renames Diag_C;
    procedure Newline_Err;
-private
-   pragma Export (C, Grt_Overflow_Error, "grt_overflow_error");
-   pragma Export (C, Grt_Null_Access_Error, "grt_null_access_error");
 end Grt.Errors;