diff options
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
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; |