diff options
Diffstat (limited to 'src/synth/elab-vhdl_context.ads')
| -rw-r--r-- | src/synth/elab-vhdl_context.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_context.ads b/src/synth/elab-vhdl_context.ads index 2fc483c7f..8924da120 100644 --- a/src/synth/elab-vhdl_context.ads +++ b/src/synth/elab-vhdl_context.ads @@ -16,6 +16,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. +with Types; use Types; + with Vhdl.Annotations; use Vhdl.Annotations; with Vhdl.Nodes; use Vhdl.Nodes; @@ -80,6 +82,9 @@ package Elab.Vhdl_Context is procedure Set_Instance_Config (Inst : Synth_Instance_Acc; Config : Node); function Get_Instance_Config (Inst : Synth_Instance_Acc) return Node; + procedure Set_Instance_Foreign (Inst : Synth_Instance_Acc; N : Int32); + function Get_Instance_Foreign (Inst : Synth_Instance_Acc) return Int32; + -- Add/Get extra instances. -- Those instances are verification units. procedure Add_Extra_Instance (Inst : Synth_Instance_Acc; @@ -209,6 +214,7 @@ private -- Block configuration (unless the instance is for a package). Config : Node; + Foreign : Int32; -- Chain of verification units that applies to this one. Extra_Units : Synth_Instance_Acc; |