diff options
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 114bb68e6..a65fd54ef 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -125,6 +125,14 @@ package body Sem_Names is return Get_Kind (An_Iir) = Iir_Kind_Overload_List; end Is_Overload_List; + function Is_Defined_Type (Atype : Iir) return Boolean is + begin + return Atype /= Null_Iir + and then not Kind_In (Get_Kind (Atype), + Iir_Kind_Overload_List, + Iir_Kind_Wildcard_Type_Definition); + end Is_Defined_Type; + -- From the list LIST of function or enumeration literal, extract the -- list of (return) types. -- If there is only one type, return it. |