From 61315151bc011a063d6a07937fd36068bdff53b6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 29 Dec 2020 18:32:36 +0100
Subject: trans-chap3: compute size of subelements for unconstrained parent
 subtypes

Fix #1549
---
 src/synth/synth-insts.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/synth')

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index 5c95dce07..3598d594b 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -837,6 +837,7 @@ package body Synth.Insts is
       end loop;
 
       if Inst_Obj.Encoding = Name_Parameters then
+         --  Copy values of the generics to module parameters.
          declare
             Inter : Node;
             Vt : Valtyp;
-- 
cgit v1.2.3