diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-08-16 21:49:53 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-08-16 21:49:53 +0200 |
| commit | 35647707bf3035ec4135207ec72f0b4e2daba0db (patch) | |
| tree | a97a1908feb55823779071b454bf5bfe530d8d09 /src | |
| parent | e279ecb9b8ee7376b2f5f606a86b6daceda33a1e (diff) | |
| download | ghdl-35647707bf3035ec4135207ec72f0b4e2daba0db.tar.gz ghdl-35647707bf3035ec4135207ec72f0b4e2daba0db.tar.bz2 ghdl-35647707bf3035ec4135207ec72f0b4e2daba0db.zip | |
trans-chap7: use get_index_type. Fix #635
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 5b70c71e7..5881be71f 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3037,8 +3037,7 @@ package body Trans.Chap7 is Open_Temp; -- Create a loop from left +- number of positionnals associations -- to/downto right. - Range_Type := - Get_Base_Type (Get_Nth_Element (Index_List, Dim - 1)); + Range_Type := Get_Base_Type (Get_Index_Type (Index_List, Dim - 1)); Rtinfo := Get_Info (Range_Type); Var_Pos := Create_Temp (Rtinfo.Ortho_Type (Mode_Value)); Range_Ptr := Stabilize |