diff options
Diffstat (limited to 'translate/grt')
| -rw-r--r-- | translate/grt/grt-lib.adb | 7 | ||||
| -rw-r--r-- | translate/grt/grt-lib.ads | 3 |
2 files changed, 0 insertions, 10 deletions
diff --git a/translate/grt/grt-lib.adb b/translate/grt/grt-lib.adb index fcbbecb64..3c10417aa 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 580406dcc..2c75a90e4 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"); |