synth: add error messages for latches.

1 files changed, 9 insertions, 2 deletions

diff --git a/src/synth/synth-source.ads b/src/synth/synth-source.ads
index 1a2db0209..ed640463d 100644
--- a/src/synth/synth-source.ads
+++ b/src/synth/synth-source.ads
@@ -18,13 +18,20 @@
 --  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
 --  MA 02110-1301, USA.
 
+with Types; use Types;
+with Errorout;
+
 with Netlists;
 
 with Vhdl.Nodes; use Vhdl.Nodes;
+with Vhdl.Errors;
 
 package Synth.Source is
-   subtype Syn_Src is Iir;
-   No_Syn_Src : constant Syn_Src := Null_Iir;
+   subtype Syn_Src is Node;
+   No_Syn_Src : constant Syn_Src := Null_Node;
+
+   function "+" (N : Node) return Location_Type renames Vhdl.Errors."+";
+   function "+" (N : Node) return Errorout.Earg_Type renames Vhdl.Errors."+";
 
    procedure Set_Location (N : Netlists.Net; Src : Syn_Src);
    pragma Inline (Set_Location);