From a98fae8775c39688e70b526f9e332740b2e380e4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 6 Oct 2019 08:44:58 +0200
Subject: errorout: reserve eargs for synthesis.

---
 src/errorout.adb | 15 +++++++++++++++
 src/errorout.ads |  7 ++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/errorout.adb b/src/errorout.adb
index 8e9edf101..d3eea84c3 100644
--- a/src/errorout.adb
+++ b/src/errorout.adb
@@ -399,4 +399,19 @@ package body Errorout is
    begin
       return (Kind => Earg_Vhdl_Token, Val_Lang => V);
    end Make_Earg_Vhdl_Token;
+
+   function Make_Earg_Synth_Instance (V : Uns32) return Earg_Type is
+   begin
+      return (Kind => Earg_Synth_Instance, Val_Lang => V);
+   end Make_Earg_Synth_Instance;
+
+   function Make_Earg_Synth_Net (V : Uns32) return Earg_Type is
+   begin
+      return (Kind => Earg_Synth_Net, Val_Lang => V);
+   end Make_Earg_Synth_Net;
+
+   function Make_Earg_Synth_Name (V : Uns32) return Earg_Type is
+   begin
+      return (Kind => Earg_Synth_Name, Val_Lang => V);
+   end Make_Earg_Synth_Name;
 end Errorout;
diff --git a/src/errorout.ads b/src/errorout.ads
index bd6e08e50..e67cba0c9 100644
--- a/src/errorout.ads
+++ b/src/errorout.ads
@@ -240,7 +240,8 @@ package Errorout is
      (Earg_None,
       Earg_Location, Earg_Id,
       Earg_Char, Earg_String8, Earg_Uns32, Earg_Int32,
-      Earg_Vhdl_Node, Earg_Vhdl_Token);
+      Earg_Vhdl_Node, Earg_Vhdl_Token,
+      Earg_Synth_Instance, Earg_Synth_Net, Earg_Synth_Name);
 
    subtype Earg_Lang_Kind is Earg_Kind range Earg_Vhdl_Node .. Earg_Kind'Last;
 
@@ -252,9 +253,13 @@ package Errorout is
    procedure Output_Identifier (Id : Name_Id);
    procedure Output_Location (Err : Error_Record; Loc : Location_Type);
    procedure Output_Message (S : String);
+   procedure Output_Uns32 (V : Uns32);
 
    function Make_Earg_Vhdl_Node (V : Uns32) return Earg_Type;
    function Make_Earg_Vhdl_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
-- 
cgit v1.2.3