From 01d0c060bb056b8b120cb9ce2e927aa76ad1b567 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 10 Feb 2020 18:24:03 +0100 Subject: grt: split grt-errors, disp current process. --- src/grt/grt-lib.ads | 9 --------- 1 file changed, 9 deletions(-) (limited to 'src/grt/grt-lib.ads') diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads index 51f4b4a95..b0f68d3e9 100644 --- a/src/grt/grt-lib.ads +++ b/src/grt/grt-lib.ads @@ -25,8 +25,6 @@ with Grt.Types; use Grt.Types; package Grt.Lib is - pragma Preelaborate (Grt.Lib); - procedure Ghdl_Memcpy (Dest : Ghdl_Ptr; Src : Ghdl_Ptr; Size : Ghdl_Index_Type); @@ -50,11 +48,6 @@ package Grt.Lib is procedure Ghdl_Report (Str : Std_String_Ptr; Severity : Integer; Loc : Ghdl_Location_Ptr); - Note_Severity : constant Integer := 0; - Warning_Severity : constant Integer := 1; - Error_Severity : constant Integer := 2; - Failure_Severity : constant Integer := 3; - -- Bound / Direction error. procedure Ghdl_Bound_Check_Failed (Filename : Ghdl_C_String; Line: Ghdl_I32); @@ -73,8 +66,6 @@ package Grt.Lib is -- Called before allocation of large (complex) objects. procedure Ghdl_Check_Stack_Allocation (Size : Ghdl_Index_Type); - Max_Stack_Allocation : Ghdl_Index_Type := 128 * 1024; - function Ghdl_Malloc (Size : Ghdl_Index_Type) return Ghdl_Ptr; -- Allocate and clear SIZE bytes. -- cgit v1.2.3