From 15845deaa7c9cd7ea32519a82fead0488dde10bb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 25 Jan 2018 06:43:34 +0100
Subject: Add missing check for static evaluation of 'image.

---
 src/vhdl/evaluation.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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.
-- 
cgit v1.2.3