1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
-- GHDL Run Time (GRT) - misc subprograms.
-- Copyright (C) 2002 - 2014 Tristan Gingold
--
-- GHDL is free software; you can redistribute it and/or modify it under
-- the terms of the GNU General Public License as published by the Free
-- Software Foundation; either version 2, or (at your option) any later
-- version.
--
-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
-- WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-- for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with GCC; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
--
-- As a special exception, if other files instantiate generics from this
-- unit, or you link this unit with other files to produce an executable,
-- this unit does not by itself cause the resulting executable to be
-- covered by the GNU General Public License. This exception does not
-- however invalidate any other reasons why the executable file might be
-- covered by the GNU Public License.
with Grt.Types; use Grt.Types;
with Grt.Rtis; use Grt.Rtis;
package Grt.Lib is
pragma Preelaborate (Grt.Lib);
procedure Ghdl_Memcpy
(Dest : Ghdl_Ptr; Src : Ghdl_Ptr; Size : Ghdl_Index_Type);
procedure Ghdl_Assert_Failed
(Str : Std_String_Ptr;
Severity : Integer;
Loc : Ghdl_Location_Ptr;
Unit : Ghdl_Rti_Access);
procedure Ghdl_Psl_Assert_Failed
(Str : Std_String_Ptr;
Severity : Integer;
Loc : Ghdl_Location_Ptr;
Unit : Ghdl_Rti_Access);
procedure Ghdl_Report
(Str : Std_String_Ptr;
Severity : Integer;
Loc : Ghdl_Location_Ptr;
Unit : Ghdl_Rti_Access);
Note_Severity : constant Integer := 0;
Warning_Severity : constant Integer := 1;
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);
-- Program error has occured:
-- * configuration of an already configured block.
procedure Ghdl_Program_Error (Filename : Ghdl_C_String;
Line : Ghdl_I32;
Code : Ghdl_Index_Type);
function Ghdl_Integer_Exp (V : Ghdl_I32; E : Ghdl_I32)
return Ghdl_I32;
function Ghdl_Malloc (Size : Ghdl_Index_Type) return Ghdl_Ptr;
-- Allocate and clear SIZE bytes.
function Ghdl_Malloc0 (Size : Ghdl_Index_Type) return Ghdl_Ptr;
procedure Ghdl_Deallocate (Ptr : Ghdl_Ptr);
function Ghdl_Real_Exp (X : Ghdl_Real; Exp : Ghdl_I32)
return Ghdl_Real;
-- Create a vhdl string.
Ghdl_Assert_Default_Report_Arr : constant String := "Assertion violation";
Ghdl_Assert_Default_Report_Bounds : constant Std_String_Bound :=
(Dim_1 => (Left => 1,
Right => Ghdl_Assert_Default_Report_Arr'Length,
Dir => Dir_To,
Length => Ghdl_Assert_Default_Report_Arr'Length));
Ghdl_Assert_Default_Report : constant Ghdl_Uc_Array :=
(Base => Ghdl_Assert_Default_Report_Arr'Address,
Bounds => Ghdl_Assert_Default_Report_Bounds'Address);
-- Unfortunatly, with gnat 3.15p, we cannot use a deferred constant with
-- the export pragma.
pragma Export (C, Ghdl_Assert_Default_Report,
"__ghdl_assert_default_report");
type Ghdl_Std_Ulogic_Boolean_Array_Type is array (Ghdl_E8 range 0 .. 8)
of Ghdl_B2;
Ghdl_Std_Ulogic_To_Boolean_Array :
constant Ghdl_Std_Ulogic_Boolean_Array_Type := (False, -- U
False, -- X
False, -- 0
True, -- 1
False, -- Z
False, -- W
False, -- L
True, -- H
False -- -
);
private
pragma Export (C, Ghdl_Memcpy, "__ghdl_memcpy");
pragma Export (C, Ghdl_Assert_Failed, "__ghdl_assert_failed");
pragma Export (C, Ghdl_Psl_Assert_Failed, "__ghdl_psl_assert_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");
pragma Export (C, Ghdl_Malloc, "__ghdl_malloc");
pragma Export (C, Ghdl_Malloc0, "__ghdl_malloc0");
pragma Export (C, Ghdl_Deallocate, "__ghdl_deallocate");
pragma Export (C, Ghdl_Integer_Exp, "__ghdl_integer_exp");
pragma Export (C, Ghdl_Real_Exp, "__ghdl_real_exp");
pragma Export (C, Ghdl_Std_Ulogic_To_Boolean_Array,
"__ghdl_std_ulogic_to_boolean_array");
end Grt.Lib;
|
