diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
| commit | 5a7a8470fc91861aa85060a758523e2d1f161585 (patch) | |
| tree | 8a521cdc9d057c18c53e612fd175b9eeba2888a6 /src/vhdl/translate/trans-chap9.adb | |
| parent | f38e8d2677cb5a93a3ad4c0e818e31b0063abf15 (diff) | |
| download | ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.gz ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.bz2 ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.zip | |
translate: refactoring for ortho_info_type.
Diffstat (limited to 'src/vhdl/translate/trans-chap9.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 90995f21b..a17e7630b 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1911,10 +1911,10 @@ package body Trans.Chap9 is (Get_Choice_Expression (Alt), Base_Type), Ghdl_Bool_Type); when Iir_Kind_Choice_By_Range => - Var_Rng := Create_Temp (Tinfo.T.Range_Type); + Var_Rng := Create_Temp (Tinfo.B.Range_Type); Rng := Dv2M (Var_Rng, Tinfo, Mode_Value, - Tinfo.T.Range_Type, - Tinfo.T.Range_Ptr_Type); + Tinfo.B.Range_Type, + Tinfo.B.Range_Ptr_Type); Chap7.Translate_Discrete_Range (Rng, Get_Choice_Range (Alt)); C1 := New_Dyadic_Op @@ -2090,8 +2090,8 @@ package body Trans.Chap9 is Chap3.Elab_Object_Subtype (Iter_Type); Range_Ptr := Create_Temp_Ptr - (Iter_Type_Info.T.Range_Ptr_Type, - Get_Var (Get_Info (Iter_Type).T.Range_Var)); + (Iter_Type_Info.B.Range_Ptr_Type, + Get_Var (Get_Info (Iter_Type).S.Range_Var)); -- Allocate instances. Var_Inst := Create_Temp (Info.Block_Decls_Array_Ptr_Type); @@ -2102,7 +2102,7 @@ package body Trans.Chap9 is New_Dyadic_Op (ON_Mul_Ov, New_Value_Selected_Acc_Value (New_Obj (Range_Ptr), - Iter_Type_Info.T.Range_Length), + Iter_Type_Info.B.Range_Length), New_Lit (Get_Scope_Size (Info.Block_Scope))), Info.Block_Decls_Array_Ptr_Type)); @@ -2121,7 +2121,7 @@ package body Trans.Chap9 is New_Obj_Value (Var_I), New_Value_Selected_Acc_Value (New_Obj (Range_Ptr), - Iter_Type_Info.T.Range_Length), + Iter_Type_Info.B.Range_Length), Ghdl_Bool_Type)); Var := Create_Temp_Ptr @@ -2152,16 +2152,16 @@ package body Trans.Chap9 is New_Compare_Op (ON_Eq, New_Value_Selected_Acc_Value (New_Obj (Range_Ptr), - Iter_Type_Info.T.Range_Dir), + Iter_Type_Info.B.Range_Dir), New_Lit (Ghdl_Dir_To_Node), Ghdl_Bool_Type)); New_Assign_Stmt (New_Obj (Val), New_Value_Selected_Acc_Value (New_Obj (Range_Ptr), - Iter_Type_Info.T.Range_Left)); + Iter_Type_Info.B.Range_Left)); New_Else_Stmt (If_Blk); New_Assign_Stmt (New_Obj (Val), New_Value_Selected_Acc_Value (New_Obj (Range_Ptr), - Iter_Type_Info.T.Range_Right)); + Iter_Type_Info.B.Range_Right)); Finish_If_Stmt (If_Blk); New_Assign_Stmt @@ -2213,8 +2213,8 @@ package body Trans.Chap9 is Var_Len := Create_Temp_Init (Ghdl_Index_Type, New_Value (New_Selected_Element - (Get_Var (Get_Info (Iter_Type).T.Range_Var), - Iter_Type_Info.T.Range_Length))); + (Get_Var (Get_Info (Iter_Type).S.Range_Var), + Iter_Type_Info.B.Range_Length))); -- Start loop. Var_I := Create_Temp (Ghdl_Index_Type); |