From 6d8c5299f20b4cd8f1e049f7eea454c00a3102b7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 3 Sep 2014 04:41:55 +0200 Subject: Fix ghdl_simul (after previous change). --- iirs_utils.ads | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'iirs_utils.ads') diff --git a/iirs_utils.ads b/iirs_utils.ads index 98b6b9e7f..3b06e27e0 100644 --- a/iirs_utils.ads +++ b/iirs_utils.ads @@ -164,6 +164,18 @@ package Iirs_Utils is -- Return the identifier of the entity for architecture ARCH. function Get_Entity_Identifier_Of_Architecture (Arch : Iir) return Name_Id; + -- Return True is component instantiation statement INST instantiate a + -- component. + function Is_Component_Instantiation + (Inst : Iir_Component_Instantiation_Statement) + return Boolean; + + -- Return True is component instantiation statement INST instantiate a + -- design entity. + function Is_Entity_Instantiation + (Inst : Iir_Component_Instantiation_Statement) + return Boolean; + -- Return the bound type of a string type, ie the type of the (first) -- dimension of a one-dimensional array type. function Get_String_Type_Bound_Type (Sub_Type : Iir) return Iir; -- cgit v1.2.3