From 2d4085f81f449fbb5ae5819750549b9dbe3d8fd1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 5 Dec 2019 22:22:16 +0100 Subject: ghdlsynth: fix crash on synthesis of a second design. --- src/ghdldrv/ghdlsynth.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src') diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index faa92a6f1..8990f85c2 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -285,9 +285,13 @@ package body Ghdlsynth is Synthesis.Synth_Design (Config, Res, Inst); + -- De-elaborate all packages, so that they could be re-used for + -- synthesis of a second design. + -- FIXME: move to vhdl.configure ? for I in Design_Units.First .. Design_Units.Last loop Set_Elab_Flag (Design_Units.Table (I), False); end loop; + Set_Elab_Flag (Vhdl.Std_Package.Std_Standard_Unit, False); Vhdl.Annotations.Finalize_Annotate; Synth.Context.Free_Base_Instance; -- cgit v1.2.3