From 694a4d2744f252b326121c37c2271133e0ec535f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 21 Jul 2014 07:47:19 +0200 Subject: Add overflow literal. --- translate/grt/grt-lib.adb | 7 ------- translate/grt/grt-lib.ads | 3 --- 2 files changed, 10 deletions(-) (limited to 'translate/grt') 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"); -- cgit v1.2.3