diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-19 18:52:54 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-19 20:34:12 +0200 |
commit | bf6e695a130c85a6c17b543329831dd09ae40457 (patch) | |
tree | 9df2304660ae728bec48ece470f4d0a31d332351 /src/vhdl/translate/trans-chap7.adb | |
parent | fa5614efb63cacdee5bb93ce88e8ce07f3a10f77 (diff) | |
download | ghdl-bf6e695a130c85a6c17b543329831dd09ae40457.tar.gz ghdl-bf6e695a130c85a6c17b543329831dd09ae40457.tar.bz2 ghdl-bf6e695a130c85a6c17b543329831dd09ae40457.zip |
Add simple_IO - to be used instead of Text_IO.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 9d1e0796c..3d670cf56 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Ada.Text_IO; +with Simple_IO; with Name_Table; with Str_Table; with Vhdl.Utils; use Vhdl.Utils; @@ -1132,10 +1132,7 @@ package body Trans.Chap7 is Invert := True; Val := 0; when others => - Ada.Text_IO.Put_Line - ("translate_shortcut_operator: cannot handle " - & Iir_Predefined_Functions'Image (Kind)); - raise Internal_Error; + Error_Kind ("translate_shortcut_operator", Kind); end case; V := Get_Ortho_Literal @@ -2334,7 +2331,7 @@ package body Trans.Chap7 is | ON_Not => Res := New_Monadic_Op (Op, Left_Tree); when others => - Ada.Text_IO.Put_Line + Simple_IO.Put_Line_Err ("translate_predefined_operator: cannot handle " & ON_Op_Kind'Image (Op)); raise Internal_Error; @@ -2747,11 +2744,7 @@ package body Trans.Chap7 is end; when others => - Ada.Text_IO.Put_Line - ("translate_predefined_operator(2): cannot handle " - & Iir_Predefined_Functions'Image (Kind)); - raise Internal_Error; - return O_Enode_Null; + Error_Kind ("translate_predefined_operator(2)", Kind); end case; end Translate_Predefined_Operator; |