diff options
| author | Tristan Gingold | 2015-05-20 21:55:21 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-20 21:55:21 +0200 |
| commit | 06c4e6e0ba10149b272b0c49869152a50c732ae5 (patch) | |
| tree | 6488ea1108733631b3e9b5ad000a2d4f8cadfc8c /src/vhdl | |
| parent | 7abaf412c73a0f00f812ee05d7bf5a304e83549c (diff) | |
| download | ghdl-06c4e6e0ba10149b272b0c49869152a50c732ae5.tar.gz ghdl-06c4e6e0ba10149b272b0c49869152a50c732ae5.tar.bz2 ghdl-06c4e6e0ba10149b272b0c49869152a50c732ae5.zip | |
Handle to_string for i64 numbers.
Fix ticket 76
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, |