diff options
Diffstat (limited to 'src/vhdl/translate/trans.ads')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 75f7f06f2..a9d02017a 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -769,16 +769,14 @@ package Trans is -- Tree for the range record declaration. Range_Var : Var_Type; - when Kind_Type_Array => + when Kind_Type_Array + | Kind_Type_Record => -- True if the bounds are static. Static_Bounds : Boolean; -- Variable containing the bounds for a constrained type. Composite_Bounds : Var_Type; - when Kind_Type_Record => - null; - when Kind_Type_File => null; @@ -822,6 +820,11 @@ package Trans is Base_Field => (O_Fnode_Null, O_Fnode_Null), Bounds_Field => (O_Fnode_Null, O_Fnode_Null)); + Ortho_Info_Subtype_Record_Init : constant Ortho_Info_Subtype_Type := + (Kind => Kind_Type_Record, + Static_Bounds => False, + Composite_Bounds => Null_Var); + Ortho_Info_Basetype_File_Init : constant Ortho_Info_Basetype_Type := (Kind => Kind_Type_File, Rti_Max_Depth => 0, |