diff options
Diffstat (limited to 'translate/grt/grt-values.ads')
| -rw-r--r-- | translate/grt/grt-values.ads | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/translate/grt/grt-values.ads b/translate/grt/grt-values.ads index 25bde5abf..2bf51a479 100644 --- a/translate/grt/grt-values.ads +++ b/translate/grt/grt-values.ads @@ -16,10 +16,27 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Grt.Types; use Grt.Types; --- with Grt.Rtis; use Grt.Rtis; +with Grt.Rtis; use Grt.Rtis; package Grt.Values is + function Ghdl_Value_B2 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access) + return Ghdl_B2; + function Ghdl_Value_E8 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access) + return Ghdl_E8; + function Ghdl_Value_E32 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access) + return Ghdl_E32; function Ghdl_Value_I32 (Str : Std_String_Ptr) return Ghdl_I32; + function Ghdl_Value_F64 (Str : Std_String_Ptr) return Ghdl_F64; + function Ghdl_Value_P64 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access) + return Ghdl_I64; + function Ghdl_Value_P32 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access) + return Ghdl_I32; private + pragma Export (Ada, Ghdl_Value_B2, "__ghdl_value_b2"); + pragma Export (C, Ghdl_Value_E8, "__ghdl_value_e8"); + pragma Export (C, Ghdl_Value_E32, "__ghdl_value_e32"); pragma Export (C, Ghdl_Value_I32, "__ghdl_value_i32"); + pragma Export (C, Ghdl_Value_F64, "__ghdl_value_f64"); + pragma Export (C, Ghdl_Value_P64, "__ghdl_value_p64"); + pragma Export (C, Ghdl_Value_P32, "__ghdl_value_p32"); end Grt.Values; |