aboutsummaryrefslogtreecommitdiffstats
path: root/translate/grt/grt-values.ads
diff options
context:
space:
mode:
Diffstat (limited to 'translate/grt/grt-values.ads')
-rw-r--r--translate/grt/grt-values.ads6
1 files changed, 3 insertions, 3 deletions
diff --git a/translate/grt/grt-values.ads b/translate/grt/grt-values.ads
index 70a658155..8df8c3f63 100644
--- a/translate/grt/grt-values.ads
+++ b/translate/grt/grt-values.ads
@@ -44,8 +44,8 @@ package Grt.Values is
Lit_End : out Ghdl_Index_Type;
Unit_Pos : out Ghdl_Index_Type);
- function Ghdl_Value_B2 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access)
- return Ghdl_B2;
+ function Ghdl_Value_B1 (Str : Std_String_Ptr; Rti : Ghdl_Rti_Access)
+ return Ghdl_B1;
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)
@@ -58,7 +58,7 @@ package Grt.Values is
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 (Ada, Ghdl_Value_B1, "__ghdl_value_b1");
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");