diff options
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/simulate/simul-debugger.adb | 1 | ||||
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 4 |
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, ":("); |