diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:21:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:21:00 +0100 |
| commit | 0f62d8b9acc29a4726a17c72c315a0a94ec18688 (patch) | |
| tree | 6b9a5d1b776960b31eca68c68fdd539e908a1421 /src/vhdl | |
| parent | 3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0 (diff) | |
| download | ghdl-0f62d8b9acc29a4726a17c72c315a0a94ec18688.tar.gz ghdl-0f62d8b9acc29a4726a17c72c315a0a94ec18688.tar.bz2 ghdl-0f62d8b9acc29a4726a17c72c315a0a94ec18688.zip | |
translate: remove unused align_var variable.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 9 | ||||
| -rw-r--r-- | src/vhdl/translate/trans.ads | 11 |
2 files changed, 1 insertions, 19 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 89cf2a9be..773f4ed8f 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -973,12 +973,7 @@ package body Trans.Chap3 is -- Get the alignment mask for type INFO (Mode_Value). function Get_Type_Alignmask (Info : Type_Info_Acc) return O_Enode is begin - if Is_Complex_Type (Info) then - pragma Assert (Info.Type_Mode = Type_Mode_Record); - return New_Value (Get_Var (Info.C (Mode_Value).Align_Var)); - else - return Get_Type_Alignmask (Info.Ortho_Type (Mode_Value)); - end if; + return Get_Type_Alignmask (Info.Ortho_Type (Mode_Value)); end Get_Type_Alignmask; -- Align VALUE (of unsigned type) for type ATYPE. @@ -1115,8 +1110,6 @@ package body Trans.Chap3 is if Need_Size then Create_Size_Var (Def); - Info.C (Mode_Value).Align_Var := Create_Var - (Create_Var_Identifier ("ALIGNMSK"), Ghdl_Index_Type); Info.C (Mode_Value).Builder_Need_Func := True; Info.C (Mode_Signal).Builder_Need_Func := True; end if; diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 228496b26..342810545 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -1084,17 +1084,6 @@ package Trans is -- running time (and not a compile-time). Size_Var : Var_Type; - -- Variable containing the alignment of the type. - -- Only defined for recods and for Mode_Value. - -- Note: this is not optimal, because the alignment could be computed - -- at compile time, but there is no way to do that with ortho (no - -- operation on constants). Furthermore, the alignment is independent - -- of the instance, so there could be one global variable. But this - -- doesn't fit in the whole machinery (in particular, there is no - -- easy way to compute it once). As the overhead is very low, no need - -- to bother with this issue. - Align_Var : Var_Type; - Builder_Need_Func : Boolean; -- Parameters for type builders. |