From 415d1c1b4bd0c881ac14bf132673e24c3e56b2a7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 16 Nov 2014 08:20:49 +0100 Subject: Translate_Range: use mnodes. --- src/vhdl/translate/trans-chap1.adb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/vhdl/translate/trans-chap1.adb') 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 -- cgit v1.2.3