From 79542b1680f1dcd3e746a584ff1bf198f50c8486 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Jan 2023 20:46:38 +0100
Subject: synth: add partial support of foreign subprograms

---
 src/ghdldrv/ghdlsimul.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ghdldrv/ghdlsimul.adb')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index 909253e60..a1f315678 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -52,6 +52,7 @@ with Elab.Debugger;
 
 with Synth.Flags;
 with Synth.Errors;
+with Synth.Vhdl_Foreign;
 with Simul.Vhdl_Elab;
 with Simul.Vhdl_Simul;
 
@@ -136,6 +137,7 @@ package body Ghdlsimul is
       --  Set flags.
       Synth.Flags.Flag_Simulation := True;
       Synth.Errors.Debug_Handler := Elab.Debugger.Debug_Error'Access;
+      Synth.Vhdl_Foreign.Initialize;
 
       --  Generic overriding.
       Top := Vhdl.Utils.Get_Entity_From_Configuration (Config);
-- 
cgit v1.2.3