From d7792111d0c1f9ee050fa27257c2d4c16e4fceb2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 11 Nov 2014 07:20:01 +0100 Subject: Create_Range_From_Length: use Mnode instead of ptr. Style changes. --- src/vhdl/translate/trans-chap3.ads | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/vhdl/translate/trans-chap3.ads') diff --git a/src/vhdl/translate/trans-chap3.ads b/src/vhdl/translate/trans-chap3.ads index 1b1128560..d45dae06e 100644 --- a/src/vhdl/translate/trans-chap3.ads +++ b/src/vhdl/translate/trans-chap3.ads @@ -252,13 +252,12 @@ package Trans.Chap3 is R_Node : Mnode; Loc : Iir); - -- Create a subtype range to be stored into the location pointed by - -- RANGE_PTR from length LENGTH, which is of type INDEX_TYPE. + -- Create a subtype range to be stored into RES from length LENGTH, which + -- is of type INDEX_TYPE. -- This is done according to rules 7.2.4 of LRM93, ie: -- direction and left bound of the range is the same of INDEX_TYPE. - -- LENGTH and RANGE_PTR are variables. LOC is the location in case of - -- error. + -- LENGTH is a variable. LOC is the location in case of error. procedure Create_Range_From_Length - (Index_Type : Iir; Length : O_Dnode; Range_Ptr : O_Dnode; Loc : Iir); + (Index_Type : Iir; Length : O_Dnode; Res : Mnode; Loc : Iir); end Trans.Chap3; -- cgit v1.2.3