diff options
Diffstat (limited to 'src/synth/synth-environment.ads')
-rw-r--r-- | src/synth/synth-environment.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-environment.ads b/src/synth/synth-environment.ads index 37ab29414..9205512a3 100644 --- a/src/synth/synth-environment.ads +++ b/src/synth/synth-environment.ads @@ -68,7 +68,8 @@ package Synth.Environment is ); -- Create a wire. - function Alloc_Wire (Kind : Wire_Kind; Obj : Source.Syn_Src) return Wire_Id; + function Alloc_Wire (Kind : Wire_Kind; Typ : Type_Acc; Obj : Source.Syn_Src) + return Wire_Id; -- Mark the wire as free. procedure Free_Wire (Wid : Wire_Id); @@ -280,6 +281,9 @@ private -- Source node that created the wire. Decl : Source.Syn_Src; + -- Type of the net. Only for diagnostic purposes. + Typ : Type_Acc; + -- The initial net for the wire. -- This is a pseudo gate that is needed because the value of the wire -- can be read before anything was assigned to it. |