diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-11 19:23:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-11 19:23:19 +0200 |
| commit | 7ce33639f05fd8961e5024d1cf8b1fbd42ef18ec (patch) | |
| tree | 159db0bb021e18cb2cda5b2ed1426294a6738b9b | |
| parent | 6479e65a8d4c4ed44dad2d7b97758d36f579094b (diff) | |
| download | ghdl-7ce33639f05fd8961e5024d1cf8b1fbd42ef18ec.tar.gz ghdl-7ce33639f05fd8961e5024d1cf8b1fbd42ef18ec.tar.bz2 ghdl-7ce33639f05fd8961e5024d1cf8b1fbd42ef18ec.zip | |
synth: set flag_elaborate.
| -rw-r--r-- | src/flags.ads | 2 | ||||
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 2 |
2 files changed, 3 insertions, 1 deletions
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; |