diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-04-11 19:10:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-04-11 19:10:31 +0200 |
| commit | 1e3f9a3a03620f561a4adaf27995c1b0e0d75ae7 (patch) | |
| tree | a33c634566bd045edad6ab2149d1eadf5dba9e27 | |
| parent | 156005b67550ead369c6ab1149e2791a42c7c895 (diff) | |
| download | ghdl-1e3f9a3a03620f561a4adaf27995c1b0e0d75ae7.tar.gz ghdl-1e3f9a3a03620f561a4adaf27995c1b0e0d75ae7.tar.bz2 ghdl-1e3f9a3a03620f561a4adaf27995c1b0e0d75ae7.zip | |
Fix bounds of unconstrained strings.
Fix #552
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 385dbed57..1373ffdcd 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -364,11 +364,11 @@ package body Trans.Chap7 is New_Record_Aggr_El (Index_Aggr, New_Signed_Literal - (Index_Type_Info.Ortho_Type (Mode_Value), 0)); + (Index_Type_Info.Ortho_Type (Mode_Value), 1)); New_Record_Aggr_El (Index_Aggr, New_Signed_Literal (Index_Type_Info.Ortho_Type (Mode_Value), - Integer_64 (Len - 1))); + Integer_64 (Len))); New_Record_Aggr_El (Index_Aggr, Ghdl_Dir_To_Node); New_Record_Aggr_El |