aboutsummaryrefslogtreecommitdiffstats
path: root/src/errorout.ads
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-08-28 10:11:47 +0200
committerTristan Gingold <tgingold@free.fr>2021-08-28 13:22:29 +0200
commitb8b61eb99f0fdd3a04a3c5be53c0892f17c921e9 (patch)
treeb8db5e986ca13eb9b22c56e16267c23741c5d5ec /src/errorout.ads
parentf09b7440f071bc5544baa692b3b4c1018a7f905c (diff)
downloadghdl-b8b61eb99f0fdd3a04a3c5be53c0892f17c921e9.tar.gz
ghdl-b8b61eb99f0fdd3a04a3c5be53c0892f17c921e9.tar.bz2
ghdl-b8b61eb99f0fdd3a04a3c5be53c0892f17c921e9.zip
errorout: do not display empty lines
Diffstat (limited to 'src/errorout.ads')
-rw-r--r--src/errorout.ads4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/errorout.ads b/src/errorout.ads
index d060003ee..0bdd8fb5d 100644
--- a/src/errorout.ads
+++ b/src/errorout.ads
@@ -254,6 +254,7 @@ package Errorout is
Earg_Location, Earg_Id,
Earg_Char, Earg_String8, Earg_Uns32, Earg_Int32,
Earg_Vhdl_Node, Earg_Vhdl_Token,
+ Earg_Verilog_Node, Earg_Verilog_Token,
Earg_Synth_Instance, Earg_Synth_Net, Earg_Synth_Name);
subtype Earg_Lang_Kind is Earg_Kind range Earg_Vhdl_Node .. Earg_Kind'Last;
@@ -271,11 +272,12 @@ package Errorout is
function Make_Earg_Vhdl_Node (V : Uns32) return Earg_Type;
function Make_Earg_Vhdl_Token (V : Uns32) return Earg_Type;
+ function Make_Earg_Verilog_Node (V : Uns32) return Earg_Type;
+ function Make_Earg_Verilog_Token (V : Uns32) return Earg_Type;
function Make_Earg_Synth_Instance (V : Uns32) return Earg_Type;
function Make_Earg_Synth_Net (V : Uns32) return Earg_Type;
function Make_Earg_Synth_Name (V : Uns32) return Earg_Type;
private
-
type Earg_Type (Kind : Earg_Kind := Earg_None) is record
case Kind is
when Earg_None =>