From 5a7a8470fc91861aa85060a758523e2d1f161585 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 30 Dec 2016 19:11:43 +0100 Subject: translate: refactoring for ortho_info_type. --- src/vhdl/translate/trans-chap9.adb | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'src/vhdl/translate/trans-chap9.adb') 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); -- cgit v1.2.3