From 7ce33639f05fd8961e5024d1cf8b1fbd42ef18ec Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Jul 2019 19:23:19 +0200
Subject: synth: set flag_elaborate.

---
 src/flags.ads             | 2 +-
 src/ghdldrv/ghdlsynth.adb | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/flags.ads b/src/flags.ads
index 5ad2ece2b..a90a4fea0 100644
--- a/src/flags.ads
+++ b/src/flags.ads
@@ -104,7 +104,7 @@ package Flags is
 
    --  If set to true, it means that analyze is done for elaboration.
    --  The purpose is to avoid spurious warning "will be checked
-   --  at elaboration"
+   --  at elaboration".  It will also create default binding.
    Flag_Elaborate : Boolean := False;
 
    --  If set, a default aspect entity aspect might be an outdated unit.
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 233db4867..da37fed91 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -106,6 +106,8 @@ package body Ghdlsynth is
       Vhdl.Annotations.Flag_Synthesis := True;
 
       Common_Compile_Init (False);
+      --  Will elaborate.
+      Flags.Flag_Elaborate := True;
       Flags.Flag_Elaborate_With_Outdated := False;
       Flags.Flag_Only_Elab_Warnings := True;
 
-- 
cgit v1.2.3