diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-11-16 08:20:49 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-11-16 08:20:49 +0100 |
| commit | 415d1c1b4bd0c881ac14bf132673e24c3e56b2a7 (patch) | |
| tree | e571a2058e7dba4dda41445ab34d425f223c4c99 /src/vhdl/translate/trans-chap1.adb | |
| parent | 77d694076c67cbd37504b340190f29b6589dba13 (diff) | |
| download | ghdl-415d1c1b4bd0c881ac14bf132673e24c3e56b2a7.tar.gz ghdl-415d1c1b4bd0c881ac14bf132673e24c3e56b2a7.tar.bz2 ghdl-415d1c1b4bd0c881ac14bf132673e24c3e56b2a7.zip | |
Translate_Range: use mnodes.
Diffstat (limited to 'src/vhdl/translate/trans-chap1.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap1.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb index 38bfba695..40d6fce45 100644 --- a/src/vhdl/translate/trans-chap1.adb +++ b/src/vhdl/translate/trans-chap1.adb @@ -651,7 +651,6 @@ package body Trans.Chap1 is declare Rng : Mnode; Slice : O_Dnode; - Slice_Ptr : O_Dnode; Left, Right : O_Dnode; Index : O_Dnode; High : O_Dnode; @@ -661,10 +660,10 @@ package body Trans.Chap1 is Open_Temp; Rng := Stabilize (Chap3.Type_To_Range (Iter_Type)); Slice := Create_Temp (Type_Info.T.Range_Type); - Slice_Ptr := Create_Temp_Ptr - (Type_Info.T.Range_Ptr_Type, New_Obj (Slice)); - Chap7.Translate_Discrete_Range_Ptr - (Slice_Ptr, Get_Suffix (Spec)); + Chap7.Translate_Discrete_Range + (Dv2M (Slice, Type_Info, Mode_Value, + Type_Info.T.Range_Type, Type_Info.T.Range_Ptr_Type), + Get_Suffix (Spec)); Left := Create_Temp_Init (Ghdl_Index_Type, Chap6.Translate_Index_To_Offset |