diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-11-11 07:20:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-11-11 07:20:01 +0100 |
| commit | d7792111d0c1f9ee050fa27257c2d4c16e4fceb2 (patch) | |
| tree | 8f292c43ea7ac29d35eb3d805c79399165ae640b /src/vhdl/translate/trans-chap3.ads | |
| parent | 5424f116417beac6609b8fde7f0b903eec72a019 (diff) | |
| download | ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.tar.gz ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.tar.bz2 ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.zip | |
Create_Range_From_Length: use Mnode instead of ptr. Style changes.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.ads')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.ads | 9 |
1 files changed, 4 insertions, 5 deletions
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; |