Extract grt.astdio.vhdl from grt.astdio.

2 files changed, 3 insertions, 2 deletions

diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb
index 6747179e8..ba15bb329 100644
--- a/src/vhdl/simulate/simul-debugger.adb
+++ b/src/vhdl/simulate/simul-debugger.adb
@@ -50,6 +50,7 @@ with Grt.Processes;
 with Grt.Options;
 with Grt.Stdio; use Grt.Stdio;
 with Grt.Astdio; use Grt.Astdio;
+with Grt.Astdio.Vhdl; use Grt.Astdio.Vhdl;
 
 package body Simul.Debugger is
    --  This exception can be raised by a debugger command to directly return
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index 451889bc9..fd8e4bdbc 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -34,7 +34,7 @@ with Str_Table;
 with Files_Map;
 with Iir_Chains; use Iir_Chains;
 with Simul.Simulation; use Simul.Simulation;
-with Grt.Astdio;
+with Grt.Astdio.Vhdl;
 with Grt.Stdio;
 with Grt.Options;
 with Grt.Vstrings;
@@ -4249,7 +4249,7 @@ package body Simul.Execution is
       Put (Standard_Output, Disp_Location (Stmt));
 
       Put (Standard_Output, ":@");
-      Grt.Astdio.Put_Time (Grt.Stdio.stdout, Current_Time);
+      Grt.Astdio.Vhdl.Put_Time (Grt.Stdio.stdout, Current_Time);
 
       -- 1: an indication that this message is from an assertion.
       Put (Standard_Output, ":(");