diff options
| author | Tristan Gingold | 2015-12-21 04:59:42 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-12-21 04:59:42 +0100 |
| commit | cc5bab599435c1a02a57ef3a80bdb777addb4710 (patch) | |
| tree | ad8dd09ac429aae609be5bac65fdccaa8433ad68 /src/vhdl/simulate/debugger.adb | |
| parent | 94995e112356d91e513cf583213d2644f01865a3 (diff) | |
| download | ghdl-cc5bab599435c1a02a57ef3a80bdb777addb4710.tar.gz ghdl-cc5bab599435c1a02a57ef3a80bdb777addb4710.tar.bz2 ghdl-cc5bab599435c1a02a57ef3a80bdb777addb4710.zip | |
cleanup in errorout.
Diffstat (limited to 'src/vhdl/simulate/debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/debugger.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/simulate/debugger.adb b/src/vhdl/simulate/debugger.adb index b56efaf..a2532f2 100644 --- a/src/vhdl/simulate/debugger.adb +++ b/src/vhdl/simulate/debugger.adb @@ -123,6 +123,16 @@ package body Debugger is -- Current statement for next_stmt. Exec_Statement : Iir; + procedure Disp_Iir_Location (N : Iir) is + begin + if N = Null_Iir then + Put (Standard_Error, "??:??:??"); + else + Put (Standard_Error, Disp_Location (N)); + end if; + Put (Standard_Error, ": "); + end Disp_Iir_Location; + -- Disp a message during execution. procedure Error_Msg_Exec (Msg: String; Loc: in Iir) is begin |