diff options
Diffstat (limited to 'src/vhdl/translate')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 7e7cefb24..f1928ae2e 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1047,6 +1047,9 @@ package body Trans.Chap3 is return -1; end if; Idx_Len := Eval_Discrete_Type_Length (Index); + if Idx_Len < 0 then + return -1; + end if; -- Do not consider very large arrays as static, to avoid overflow at -- compile time. |