diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:14:52 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:14:52 +0100 |
| commit | cd74faae93e5fd8985d15a9c7cc02e1d84115020 (patch) | |
| tree | 9baddec2865cb8738f11c878d68335fcf9ff909d /src/vhdl | |
| parent | 5a7a8470fc91861aa85060a758523e2d1f161585 (diff) | |
| download | ghdl-cd74faae93e5fd8985d15a9c7cc02e1d84115020.tar.gz ghdl-cd74faae93e5fd8985d15a9c7cc02e1d84115020.tar.bz2 ghdl-cd74faae93e5fd8985d15a9c7cc02e1d84115020.zip | |
translate: remove unused fields.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 86f246460..8d2f87267 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -731,12 +731,8 @@ package Trans is Base_Field : O_Fnode_Array; Bounds_Field : O_Fnode_Array; - -- Variable containing the description for each index. - Array_Index_Desc : Var_Type; - when Kind_Type_Record => - -- Variable containing the description for each element. - Record_El_Desc : Var_Type; + null; when Kind_Type_File => -- Constant containing the signature of the file. @@ -806,8 +802,7 @@ package Trans is Bounds_Type => O_Tnode_Null, Bounds_Ptr_Type => O_Tnode_Null, Base_Field => (O_Fnode_Null, O_Fnode_Null), - Bounds_Field => (O_Fnode_Null, O_Fnode_Null), - Array_Index_Desc => Null_Var); + Bounds_Field => (O_Fnode_Null, O_Fnode_Null)); Ortho_Info_Subtype_Array_Init : constant Ortho_Info_Subtype_Type := (Kind => Kind_Type_Array, @@ -816,8 +811,7 @@ package Trans is Ortho_Info_Basetype_Record_Init : constant Ortho_Info_Basetype_Type := (Kind => Kind_Type_Record, - Rti_Max_Depth => 0, - Record_El_Desc => Null_Var); + Rti_Max_Depth => 0); Ortho_Info_Basetype_File_Init : constant Ortho_Info_Basetype_Type := (Kind => Kind_Type_File, |