aboutsummaryrefslogtreecommitdiffstats
path: root/src/grt/grt-errors.ads
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-01-26 07:49:57 +0100
committerTristan Gingold <tgingold@free.fr>2021-01-26 07:49:57 +0100
commit0978b48007afe920d8f7000c2c8722327c901259 (patch)
tree2bccc8796a0bb037a363e2fa698c038af50e56d1 /src/grt/grt-errors.ads
parent6b81ec185f16791362ca770f391578c2a8b828f0 (diff)
downloadghdl-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.ads')
-rw-r--r--src/grt/grt-errors.ads4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads
index f70a77764..371908fad 100644
--- a/src/grt/grt-errors.ads
+++ b/src/grt/grt-errors.ads
@@ -80,6 +80,10 @@ package Grt.Errors is
Line : Ghdl_I32);
pragma No_Return (Error);
+ -- Non-fatal error (for the final message in case of previous error).
+ -- Set the exit status.
+ procedure Error_NF (Str : String);
+
-- Warning message.
procedure Warning (Str : String);