aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/synth/synth-expr.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 3cc92cf1d..2282d48b2 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -23,6 +23,7 @@ with Name_Table;
with Std_Names;
with Str_Table;
with Mutils; use Mutils;
+with Errorout; use Errorout;
with Vhdl.Types;
with Vhdl.Ieee.Std_Logic_1164; use Vhdl.Ieee.Std_Logic_1164;
@@ -829,7 +830,9 @@ package body Synth.Expr is
pragma Assert (Vtype.Kind = Type_Vector
or Vtype.Kind = Type_Slice);
if Dtype.W /= Vtype.W then
- Error_Msg_Synth (+Loc, "mismatching vector length");
+ Error_Msg_Synth
+ (+Loc, "mismatching vector length; got %v, expect %v",
+ (Errorout."+" (Vtype.W), +Dtype.W));
return No_Valtyp;
end if;
if Bounds then