diff options
| -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; |