diff options
| -rw-r--r-- | src/synth/synth-oper.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb index 3f633fe6d..c87a61235 100644 --- a/src/synth/synth-oper.adb +++ b/src/synth/synth-oper.adb @@ -481,7 +481,10 @@ package body Synth.Oper is is N : Net; begin - -- FIXME: check same length. + if Left.Typ.W /= Right.Typ.W then + Error_Msg_Synth (+Expr, "operands don't have the same length"); + return No_Valtyp; + end if; N := Build_Dyadic (Build_Context, Id, Get_Net (Left), Get_Net (Right)); Set_Location (N, Expr); |