diff options
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 4 | ||||
| -rw-r--r-- | src/vhdl/translate/trans_decls.ads | 1 | ||||
| -rw-r--r-- | src/vhdl/translate/translation.adb | 2 |
3 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index c226f52..4833564 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2443,6 +2443,10 @@ package body Trans.Chap7 is return Translate_To_String (Ghdl_To_String_I32, Res_Type, Loc, New_Convert_Ov (Left_Tree, Ghdl_I32_Type)); + when Type_Mode_I64 => + return Translate_To_String + (Ghdl_To_String_I64, Res_Type, Loc, + New_Convert_Ov (Left_Tree, Ghdl_I64_Type)); when others => raise Internal_Error; end case; diff --git a/src/vhdl/translate/trans_decls.ads b/src/vhdl/translate/trans_decls.ads index 50f49cf..e2c87f0 100644 --- a/src/vhdl/translate/trans_decls.ads +++ b/src/vhdl/translate/trans_decls.ads @@ -232,6 +232,7 @@ package Trans_Decls is -- For To_String (vhdl 2008). Ghdl_To_String_I32 : O_Dnode; + Ghdl_To_String_I64 : O_Dnode; Ghdl_To_String_F64 : O_Dnode; Ghdl_To_String_F64_Digits : O_Dnode; Ghdl_To_String_F64_Format : O_Dnode; diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 4e41636..516c3e9 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -1758,6 +1758,8 @@ package body Translation is Create_To_String_Subprogram ("__ghdl_to_string_i32", Ghdl_To_String_I32, Ghdl_I32_Type); Create_To_String_Subprogram + ("__ghdl_to_string_i64", Ghdl_To_String_I64, Ghdl_I64_Type); + Create_To_String_Subprogram ("__ghdl_to_string_f64", Ghdl_To_String_F64, Ghdl_Real_Type); Create_To_String_Subprogram ("__ghdl_to_string_f64_digits", Ghdl_To_String_F64_Digits, |