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-chap1.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-chap1.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap1.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb index a84442df4..d3f3be69b 100644 --- a/src/vhdl/translate/trans-chap1.adb +++ b/src/vhdl/translate/trans-chap1.adb @@ -677,8 +677,8 @@ package body Trans.Chap1 is New_Value (New_Obj (Var_I)), New_Value (New_Selected_Element - (Get_Var (Get_Info (Iter_Type).T.Range_Var), - Type_Info.T.Range_Length)), + (Get_Var (Get_Info (Iter_Type).S.Range_Var), + Type_Info.B.Range_Length)), Ghdl_Bool_Type)); -- Selected_name is for default configurations, so -- program should not fail if a block is already @@ -725,17 +725,17 @@ package body Trans.Chap1 is begin Open_Temp; Rng := Stabilize (Chap3.Type_To_Range (Iter_Type)); - Slice := Create_Temp (Type_Info.T.Range_Type); + Slice := Create_Temp (Type_Info.B.Range_Type); Chap7.Translate_Discrete_Range (Dv2M (Slice, Type_Info, Mode_Value, - Type_Info.T.Range_Type, Type_Info.T.Range_Ptr_Type), + Type_Info.B.Range_Type, Type_Info.B.Range_Ptr_Type), Get_Suffix (Spec)); Left := Create_Temp_Init (Ghdl_Index_Type, Chap6.Translate_Index_To_Offset (Rng, New_Value (New_Selected_Element - (New_Obj (Slice), Type_Info.T.Range_Left)), + (New_Obj (Slice), Type_Info.B.Range_Left)), Spec, Iter_Type, Spec)); Right := Create_Temp_Init (Ghdl_Index_Type, @@ -743,7 +743,7 @@ package body Trans.Chap1 is (Rng, New_Value (New_Selected_Element (New_Obj (Slice), - Type_Info.T.Range_Right)), + Type_Info.B.Range_Right)), Spec, Iter_Type, Spec)); Index := Create_Temp (Ghdl_Index_Type); High := Create_Temp (Ghdl_Index_Type); @@ -754,7 +754,7 @@ package body Trans.Chap1 is New_Value (New_Selected_Element (New_Obj (Slice), - Type_Info.T.Range_Dir)), + Type_Info.B.Range_Dir)), Ghdl_Bool_Type)); -- Same direction, so left to right. New_Assign_Stmt (New_Obj (Index), |