From 06c4e6e0ba10149b272b0c49869152a50c732ae5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 20 May 2015 21:55:21 +0200 Subject: Handle to_string for i64 numbers. Fix ticket 76 --- src/vhdl/translate/trans-chap7.adb | 4 ++++ src/vhdl/translate/trans_decls.ads | 1 + src/vhdl/translate/translation.adb | 2 ++ 3 files changed, 7 insertions(+) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index c226f52dd..4833564bd 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 50f49cf5c..e2c87f042 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 4e416367c..516c3e9e3 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -1757,6 +1757,8 @@ package body Translation is -- Create To_String subprograms. 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 -- cgit v1.2.3