From b8b61eb99f0fdd3a04a3c5be53c0892f17c921e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Aug 2021 10:11:47 +0200
Subject: errorout: do not display empty lines

---
 src/errorout.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/errorout.adb')

diff --git a/src/errorout.adb b/src/errorout.adb
index f0316197e..4f0746fcb 100644
--- a/src/errorout.adb
+++ b/src/errorout.adb
@@ -419,4 +419,14 @@ package body Errorout is
    begin
       return (Kind => Earg_Synth_Name, Val_Lang => V);
    end Make_Earg_Synth_Name;
+
+   function Make_Earg_Verilog_Node (V : Uns32) return Earg_Type is
+   begin
+      return (Kind => Earg_Verilog_Node, Val_Lang => V);
+   end Make_Earg_Verilog_Node;
+
+   function Make_Earg_Verilog_Token (V : Uns32) return Earg_Type is
+   begin
+      return (Kind => Earg_Verilog_Token, Val_Lang => V);
+   end Make_Earg_Verilog_Token;
 end Errorout;
-- 
cgit v1.2.3