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/simulate/simul-elaboration.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/simulate/simul-elaboration.adb')
-rw-r--r-- | src/vhdl/simulate/simul-elaboration.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb index 05ea592e2..e1a418d6e 100644 --- a/src/vhdl/simulate/simul-elaboration.adb +++ b/src/vhdl/simulate/simul-elaboration.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 Str_Table; with Errorout; use Errorout; with Vhdl.Errors; use Vhdl.Errors; @@ -2012,10 +2012,10 @@ package body Simul.Elaboration is Sub_Conf : Iir; begin if Trace_Elaboration then - Ada.Text_IO.Put ("configure component "); - Ada.Text_IO.Put (Name_Table.Image (Get_Label (Stmt))); - Ada.Text_IO.Put (": "); - Ada.Text_IO.Put_Line (Image_Identifier (Component)); + Simple_IO.Put ("configure component "); + Simple_IO.Put (Name_Table.Image (Get_Label (Stmt))); + Simple_IO.Put (": "); + Simple_IO.Put_Line (Image_Identifier (Component)); end if; -- Elaboration of a component instantiation statement that instanciates @@ -2030,7 +2030,7 @@ package body Simul.Elaboration is end if; if Trace_Elaboration then - Ada.Text_IO.Put_Line + Simple_IO.Put_Line (" using " & Disp_Node (Conf) & " from " & Disp_Location (Conf)); end if; @@ -2821,10 +2821,10 @@ package body Simul.Elaboration is Mark (Expr_Mark, Expr_Pool); if Trace_Elaboration then - Ada.Text_IO.Put ("elaborating "); - Ada.Text_IO.Put (Image_Identifier (Arch)); - Ada.Text_IO.Put (" of "); - Ada.Text_IO.Put_Line (Image_Identifier (Entity)); + Simple_IO.Put ("elaborating "); + Simple_IO.Put (Image_Identifier (Arch)); + Simple_IO.Put (" of "); + Simple_IO.Put_Line (Image_Identifier (Entity)); end if; Instance := Create_Block_Instance (Parent_Instance, Arch, Stmt); |