diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-07-21 07:47:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-07-21 07:47:19 +0200 |
commit | 694a4d2744f252b326121c37c2271133e0ec535f (patch) | |
tree | 3ece5db5d351cc3cb400691727a3d54673e540e1 /translate/grt | |
parent | 348dcc000d792200eb9e9853a1684ab6b3b25764 (diff) | |
download | ghdl-694a4d2744f252b326121c37c2271133e0ec535f.tar.gz ghdl-694a4d2744f252b326121c37c2271133e0ec535f.tar.bz2 ghdl-694a4d2744f252b326121c37c2271133e0ec535f.zip |
Add overflow literal.
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"); |