aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-evaluation.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-evaluation.adb')
-rw-r--r--src/vhdl/vhdl-evaluation.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb
index 0cf803f97..653cbdb31 100644
--- a/src/vhdl/vhdl-evaluation.adb
+++ b/src/vhdl/vhdl-evaluation.adb
@@ -228,7 +228,9 @@ package body Vhdl.Evaluation is
Location_Copy (Res, Origin);
Set_Type (Res, Expr_Type);
Set_Literal_Origin (Res, Origin);
- Set_Expr_Staticness (Res, Locally);
+ -- Expression is not static so that it will be an error if it needs
+ -- to. Otherwise, the error will occur at runtime.
+ Set_Expr_Staticness (Res, None);
return Res;
end Build_Overflow;