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/execution.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/execution.adb')
| -rw-r--r-- | src/vhdl/simulate/execution.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb index c1af588..ba97d3d 100644 --- a/src/vhdl/simulate/execution.adb +++ b/src/vhdl/simulate/execution.adb @@ -4124,7 +4124,7 @@ package body Execution is -- The error message consists of at least: -- 4: name of the design unit containing the assertion. - Disp_Iir_Location (Stmt); + Put (Standard_Error, Disp_Location (Stmt)); -- 1: an indication that this message is from an assertion. Put (Standard_Error, "(assertion "); |