diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 06:32:06 +0100 |
| commit | 603e2fe204cb578e2ac3f67b80a1c447205d40b2 (patch) | |
| tree | eeac64bd6b1d9d91971fc7b536e5f905236a2138 /src/vhdl/translate/trans.ads | |
| parent | 43a504a9722b739ab33393ecb2d1abc6962cc52f (diff) | |
| download | ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.gz ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.tar.bz2 ghdl-603e2fe204cb578e2ac3f67b80a1c447205d40b2.zip | |
translate: WIP - refactoring for unbounded records.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 342810545..75f7f06f2 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -770,11 +770,11 @@ package Trans is Range_Var : Var_Type; when Kind_Type_Array => - -- True if the array bounds are static. + -- True if the bounds are static. Static_Bounds : Boolean; - -- Variable containing the bounds for a constrained array. - Array_Bounds : Var_Type; + -- Variable containing the bounds for a constrained type. + Composite_Bounds : Var_Type; when Kind_Type_Record => null; @@ -810,7 +810,7 @@ package Trans is Ortho_Info_Subtype_Array_Init : constant Ortho_Info_Subtype_Type := (Kind => Kind_Type_Array, Static_Bounds => False, - Array_Bounds => Null_Var); + Composite_Bounds => Null_Var); Ortho_Info_Basetype_Record_Init : constant Ortho_Info_Basetype_Type := (Kind => Kind_Type_Record, |