From b004cea2d392fb28110a970e009590afb0ce457e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 27 Mar 2020 08:13:31 +0100
Subject: synth: improve fatal error propagation.

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

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

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 8716dd691..b6147ddb3 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -628,6 +628,10 @@ package body Synth.Stmts is
       Targ := Synth_Target (Syn_Inst, Get_Target (Stmt));
       Val := Synth_Expression_With_Type
         (Syn_Inst, Get_Expression (Stmt), Targ.Targ_Type);
+      if Val = null then
+         Set_Error (Syn_Inst);
+         return;
+      end if;
       Synth_Assignment (Syn_Inst, Targ, Val, Stmt);
    end Synth_Variable_Assignment;
 
-- 
cgit v1.2.3