From 0548bf11b1dab488335c647f380a66a17caa2433 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 6 Nov 2019 21:02:20 +0100
Subject: synth: handle record assignment for variables.  Fix #1011

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

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 08fe473d0..758a7aaad 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -386,6 +386,10 @@ package body Synth.Stmts is
                                 Val.Arr.V (I), Loc);
                end loop;
             end;
+         when Value_Record =>
+            for I in Targ.Rec.V'Range loop
+               Assign_Value (Targ.Rec.V (I), Val.Rec.V (I), Loc);
+            end loop;
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3