Add overflow literal.

2 files changed, 0 insertions, 10 deletions

diff --git a/translate/grt/grt-lib.adb b/translate/grt/grt-lib.adb
index fcbbecb..3c10417 100644
--- a/translate/grt/grt-lib.adb
+++ b/translate/grt/grt-lib.adb
@@ -188,13 +188,6 @@ package body Grt.Lib is
       Error_E ("");
    end Ghdl_Program_Error;
 
-   procedure Ghdl_Bound_Check_Failed_L0 (Number : Ghdl_Index_Type) is
-   begin
-      Error_C ("bound check failed (#");
-      Error_C (Integer (Number));
-      Error_E (")");
-   end Ghdl_Bound_Check_Failed_L0;
-
    procedure Ghdl_Bound_Check_Failed_L1 (Filename : Ghdl_C_String;
                                          Line: Ghdl_I32)
    is
diff --git a/translate/grt/grt-lib.ads b/translate/grt/grt-lib.ads
index 580406d..2c75a90 100644
--- a/translate/grt/grt-lib.ads
+++ b/translate/grt/grt-lib.ads
@@ -67,7 +67,6 @@ package Grt.Lib is
    Error_Severity   : constant Integer := 2;
    Failure_Severity : constant Integer := 3;
 
-   procedure Ghdl_Bound_Check_Failed_L0 (Number : Ghdl_Index_Type);
    procedure Ghdl_Bound_Check_Failed_L1 (Filename : Ghdl_C_String;
                                          Line: Ghdl_I32);
 
@@ -113,8 +112,6 @@ private
    pragma Export (C, Ghdl_Psl_Cover_Failed, "__ghdl_psl_cover_failed");
    pragma Export (C, Ghdl_Report, "__ghdl_report");
 
-   pragma Export (C, Ghdl_Bound_Check_Failed_L0,
-                  "__ghdl_bound_check_failed_l0");
    pragma Export (C, Ghdl_Bound_Check_Failed_L1,
                   "__ghdl_bound_check_failed_l1");
    pragma Export (C, Ghdl_Program_Error, "__ghdl_program_error");