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/logging.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/logging.adb')
| -rw-r--r-- | src/logging.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/logging.adb b/src/logging.adb index c582b3351..11ccf9645 100644 --- a/src/logging.adb +++ b/src/logging.adb @@ -16,16 +16,16 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Ada.Text_IO; use Ada.Text_IO; +with Simple_IO; package body Logging is procedure Log (S : String) is begin - Put (Standard_Error, S); + Simple_IO.Put_Err (S); end Log; procedure Log_Line (S : String := "") is begin - Put_Line (Standard_Error, S); + Simple_IO.Put_Line_Err (S); end Log_Line; end Logging; |