diff options
Diffstat (limited to 'src/vhdl/translate/trans.adb')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 8382e19d3..d6fdbe9d4 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -1370,7 +1370,7 @@ package body Trans is function Is_Composite (Info : Type_Info_Acc) return Boolean is begin - return Info.Type_Mode in Type_Mode_Fat; + return Info.Type_Mode in Type_Mode_Composite; end Is_Composite; function Is_Complex_Type (Tinfo : Type_Info_Acc) return Boolean is @@ -1378,6 +1378,11 @@ package body Trans is return Tinfo.C /= null; end Is_Complex_Type; + function Is_Unbounded_Type (Tinfo : Type_Info_Acc) return Boolean is + begin + return Tinfo.Type_Mode in Type_Mode_Unbounded; + end Is_Unbounded_Type; + procedure Free_Node_Infos is Info : Ortho_Info_Acc; |