diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-25 06:43:34 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-25 06:43:34 +0100 |
commit | 15845deaa7c9cd7ea32519a82fead0488dde10bb (patch) | |
tree | dd3f3daf979a5c4aa36e149ca20968552f4d9b8e /src/vhdl | |
parent | 53d11fd4c18aeecdc557a51f0f106eb2ae245fd0 (diff) | |
download | ghdl-15845deaa7c9cd7ea32519a82fead0488dde10bb.tar.gz ghdl-15845deaa7c9cd7ea32519a82fead0488dde10bb.tar.bz2 ghdl-15845deaa7c9cd7ea32519a82fead0488dde10bb.zip |
Add missing check for static evaluation of 'image.
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/evaluation.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index d528a3789..9d2290fdf 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -2557,6 +2557,7 @@ package body Evaluation is begin Param := Get_Parameter (Expr); Param := Eval_Static_Expr (Param); + Eval_Check_Bound (Param, Get_Type (Get_Prefix (Expr))); Set_Parameter (Expr, Param); -- Special case for overflow. |