diff options
Diffstat (limited to 'translate/grt/grt-images.ads')
| -rw-r--r-- | translate/grt/grt-images.ads | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/translate/grt/grt-images.ads b/translate/grt/grt-images.ads index 625082f..cd97fe9 100644 --- a/translate/grt/grt-images.ads +++ b/translate/grt/grt-images.ads @@ -29,8 +29,8 @@ package Grt.Images is -- For all images procedures, the result is allocated on the secondary -- stack. - procedure Ghdl_Image_B2 - (Res : Std_String_Ptr; Val : Ghdl_B2; Rti : Ghdl_Rti_Access); + procedure Ghdl_Image_B1 + (Res : Std_String_Ptr; Val : Ghdl_B1; Rti : Ghdl_Rti_Access); procedure Ghdl_Image_E8 (Res : Std_String_Ptr; Val : Ghdl_E8; Rti : Ghdl_Rti_Access); procedure Ghdl_Image_E32 @@ -41,12 +41,21 @@ package Grt.Images is (Res : Std_String_Ptr; Val : Ghdl_I64; Rti : Ghdl_Rti_Access); procedure Ghdl_Image_P32 (Res : Std_String_Ptr; Val : Ghdl_I32; Rti : Ghdl_Rti_Access); + + procedure Ghdl_To_String_I32 (Res : Std_String_Ptr; Val : Ghdl_I32); + procedure Ghdl_To_String_F64 (Res : Std_String_Ptr; Val : Ghdl_F64); + procedure Ghdl_To_String_F64_Digits + (Res : Std_String_Ptr; Val : Ghdl_F64; Nbr_Digits : Ghdl_I32); private - pragma Export (Ada, Ghdl_Image_B2, "__ghdl_image_b2"); + pragma Export (Ada, Ghdl_Image_B1, "__ghdl_image_b1"); pragma Export (C, Ghdl_Image_E8, "__ghdl_image_e8"); pragma Export (C, Ghdl_Image_E32, "__ghdl_image_e32"); pragma Export (C, Ghdl_Image_I32, "__ghdl_image_i32"); pragma Export (C, Ghdl_Image_F64, "__ghdl_image_f64"); pragma Export (C, Ghdl_Image_P64, "__ghdl_image_p64"); pragma Export (C, Ghdl_Image_P32, "__ghdl_image_p32"); + + pragma Export (C, Ghdl_To_String_I32, "__ghdl_to_string_i32"); + pragma Export (C, Ghdl_To_String_F64, "__ghdl_to_string_f64"); + pragma Export (C, Ghdl_To_String_F64_Digits, "__ghdl_to_string_f64_digits"); end Grt.Images; |