diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-05-07 19:20:32 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-05-07 19:20:32 +0200 |
commit | 29aa770398bd26fb82f6322e887f8313de77f96f (patch) | |
tree | 1b15a0d1e7260e3284098d565292d47a19e3a217 /src/synth/synth-environment.ads | |
parent | 6266bf8c49ecf5d04d6de11b9d4d1064bbd84bcd (diff) | |
download | ghdl-29aa770398bd26fb82f6322e887f8313de77f96f.tar.gz ghdl-29aa770398bd26fb82f6322e887f8313de77f96f.tar.bz2 ghdl-29aa770398bd26fb82f6322e887f8313de77f96f.zip |
synth-environment: add Set/Get_Kind, Wire_Unset
Diffstat (limited to 'src/synth/synth-environment.ads')
-rw-r--r-- | src/synth/synth-environment.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/synth-environment.ads b/src/synth/synth-environment.ads index 70e472ac9..e06e254b2 100644 --- a/src/synth/synth-environment.ads +++ b/src/synth/synth-environment.ads @@ -78,6 +78,7 @@ package Synth.Environment is Wire_Variable, Wire_Enable, Wire_Signal, + Wire_Unset, Wire_Input, Wire_Output, Wire_Inout ); @@ -87,6 +88,11 @@ package Synth.Environment is -- Mark the wire as free. procedure Free_Wire (Wid : Wire_Id); + -- Change wire WID kind. + -- The only allowed transitions are Unset <-> (Variable or Signal). + procedure Set_Kind (Wid : Wire_Id; Kind : Wire_Kind); + function Get_Kind (Wid : Wire_Id) return Wire_Kind; + -- Read and write the mark flag. function Get_Wire_Mark (Wid : Wire_Id) return Boolean; procedure Set_Wire_Mark (Wid : Wire_Id; Mark : Boolean := True); |