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-chap5.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-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 18f54fd7e..eee9c24b2 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -506,16 +506,16 @@ package body Trans.Chap5 is Tinfo : constant Type_Info_Acc := Get_Info (Atype); Var : O_Dnode; begin - Var := Create_Temp (Tinfo.T.Bounds_Ptr_Type); + Var := Create_Temp (Tinfo.B.Bounds_Ptr_Type); New_Assign_Stmt (New_Obj (Var), Gen_Alloc (Alloc, - New_Lit (New_Sizeof (Tinfo.T.Bounds_Type, + New_Lit (New_Sizeof (Tinfo.B.Bounds_Type, Ghdl_Index_Type)), - Tinfo.T.Bounds_Ptr_Type)); + Tinfo.B.Bounds_Ptr_Type)); return Dp2M (Var, Tinfo, Mode_Value, - Tinfo.T.Bounds_Type, - Tinfo.T.Bounds_Ptr_Type); + Tinfo.B.Bounds_Type, + Tinfo.B.Bounds_Ptr_Type); end Alloc_Bounds; function Get_Unconstrained_Port_Bounds (Assoc : Iir; Inter : Iir) @@ -538,7 +538,7 @@ package body Trans.Chap5 is Tinfo := Get_Info (Actual_Type); if Save and then - Get_Alloc_Kind_For_Var (Tinfo.T.Array_Bounds) = Alloc_Stack + Get_Alloc_Kind_For_Var (Tinfo.S.Array_Bounds) = Alloc_Stack then -- We need a copy. Bounds_Copy := Alloc_Bounds (Actual_Type, Alloc_System); |