diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-10 18:24:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-10 18:28:42 +0100 |
| commit | 01d0c060bb056b8b120cb9ce2e927aa76ad1b567 (patch) | |
| tree | 2d96ca2cd7dcce110ee22ee1861c7d1685b697a1 /src/grt/grt-lib.ads | |
| parent | 7957698f300c2ad7ee33c4d43ad80ba3ecfe8253 (diff) | |
| download | ghdl-01d0c060bb056b8b120cb9ce2e927aa76ad1b567.tar.gz ghdl-01d0c060bb056b8b120cb9ce2e927aa76ad1b567.tar.bz2 ghdl-01d0c060bb056b8b120cb9ce2e927aa76ad1b567.zip | |
grt: split grt-errors, disp current process.
Diffstat (limited to 'src/grt/grt-lib.ads')
| -rw-r--r-- | src/grt/grt-lib.ads | 9 |
1 files changed, 0 insertions, 9 deletions
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. |