diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-27 12:21:25 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-27 12:21:25 +0200 |
commit | e54549c2265afce5456046e1a98f4d93be80235e (patch) | |
tree | de1b46b4621f9e74b0cc99572225764af055b83c /src/vhdl | |
parent | 10db951dcaa5dc6f20d02d2cb130a8e9fcc507ed (diff) | |
download | ghdl-e54549c2265afce5456046e1a98f4d93be80235e.tar.gz ghdl-e54549c2265afce5456046e1a98f4d93be80235e.tar.bz2 ghdl-e54549c2265afce5456046e1a98f4d93be80235e.zip |
trans-chap3: propagate object kind to bounds mnode. Fix #1376
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 928af48a0..35bd8044e 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -2736,7 +2736,7 @@ package body Trans.Chap3 is (New_Selected_Element (M2Lv (Obj), Info.B.Bounds_Field (Kind)), Info, - Mode_Value, + Kind, Info.B.Bounds_Type, Info.B.Bounds_Ptr_Type); end; |