From ea7b6490368a4fceb370cc8bc7069133a3217285 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 6 Apr 2020 19:07:08 +0200
Subject: synth: check length for vector conversion.  Fix #1199

---
 src/synth/synth-stmts.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/synth/synth-stmts.adb')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index aa1a737ac..6a7081810 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -98,11 +98,11 @@ package body Synth.Stmts is
       Cval : Valtyp;
       N : Net;
    begin
-      if Val = No_Valtyp then
+      Cval := Synth_Subtype_Conversion (Val, Typ, False, Loc);
+      if Cval = No_Valtyp then
          --  In case of error.
          return;
       end if;
-      Cval := Synth_Subtype_Conversion (Val, Typ, False, Loc);
       N := Get_Net (Cval);
       Phi_Assign (Build_Context, Wid, N, Offset);
    end Synth_Assign;
-- 
cgit v1.2.3