errorout: remove execution related subprograms (and exceptions).

1 files changed, 0 insertions, 44 deletions

diff --git a/errorout.adb b/errorout.adb
index afc3b5a6f..87e549380 100644
--- a/errorout.adb
+++ b/errorout.adb
@@ -319,49 +319,6 @@ package body Errorout is
       Put_Line (Msg);
    end Error_Msg_Elab;
 
-   -- Disp a message during execution.
-   procedure Error_Msg_Exec (Msg: String; Loc: in Iir) is
-   begin
-      Nbr_Errors := Nbr_Errors + 1;
-      Disp_Iir_Location (Loc);
-      Put (' ');
-      Put_Line (Msg);
-      raise Simulation_Error;
-   end Error_Msg_Exec;
-
-   procedure Warning_Msg_Exec (Msg: String; Loc: Iir) is
-   begin
-      Disp_Iir_Location (Loc);
-      Put ("warning: ");
-      Put_Line (Msg);
-   end Warning_Msg_Exec;
-
-   -- Disp a message for a constraint error.
-   procedure Error_Msg_Constraint (Expr: in Iir) is
-   begin
-      Nbr_Errors := Nbr_Errors + 1;
-      if Expr /= Null_Iir then
-         Disp_Iir_Location (Expr);
-      end if;
-      Put ("constraint violation");
-      if Expr /= Null_Iir then
-         case Get_Kind (Expr) is
-            when Iir_Kind_Addition_Operator =>
-               Put_Line (" in the ""+"" operation");
-            when Iir_Kind_Substraction_Operator =>
-               Put_Line (" in the ""-"" operation");
-            when Iir_Kind_Integer_Literal =>
-               Put_Line (", literal out of range");
-            when Iir_Kind_Signal_Interface_Declaration
-              | Iir_Kind_Signal_Declaration =>
-               Put_Line (" for " & Disp_Node (Expr));
-            when others =>
-               Put_Line ("");
-         end case;
-      end if;
-      raise Execution_Constraint_Error;
-   end Error_Msg_Constraint;
-
    -- Disp a bug message.
    procedure Error_Internal (Expr: in Iir; Msg: String := "")
    is
@@ -384,7 +341,6 @@ package body Errorout is
       end if;
    end Disp_Label;
 
-
    -- Disp a node.
    -- Used for output of message.
    function Disp_Node (Node: Iir) return String is