diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-01-26 07:49:57 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-01-26 07:49:57 +0100 |
| commit | 0978b48007afe920d8f7000c2c8722327c901259 (patch) | |
| tree | 2bccc8796a0bb037a363e2fa698c038af50e56d1 /src/grt/grt-errors.adb | |
| parent | 6b81ec185f16791362ca770f391578c2a8b828f0 (diff) | |
| download | ghdl-0978b48007afe920d8f7000c2c8722327c901259.tar.gz ghdl-0978b48007afe920d8f7000c2c8722327c901259.tar.bz2 ghdl-0978b48007afe920d8f7000c2c8722327c901259.zip | |
grt: add Error_NF to report final error status. Fix #803
Diffstat (limited to 'src/grt/grt-errors.adb')
| -rw-r--r-- | src/grt/grt-errors.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb index 704132368..48cdd1870 100644 --- a/src/grt/grt-errors.adb +++ b/src/grt/grt-errors.adb @@ -202,6 +202,13 @@ package body Grt.Errors is Error_E; end Error; + procedure Error_NF (Str : String) is + begin + Error_S (Str); + Newline_Err; + Exit_Status := 1; + end Error_NF; + procedure Info_S (Str : String := "") is begin Put_Err (Progname); |