From 288021722ffbc7eb2a01549d08bbd04584da5c75 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 16 Jan 2023 18:53:59 +0100
Subject: ghdlsimul: check foreign subprograms

---
 src/ghdldrv/ghdlsimul.adb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index bb76bab24..909253e60 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -35,6 +35,7 @@ with Vhdl.Sem;
 with Vhdl.Canon;
 with Vhdl.Configuration;
 with Vhdl.Utils;
+with Vhdl.Back_End;
 
 with Grt.Options;
 with Grt.Types;
@@ -58,13 +59,13 @@ package body Ghdlsimul is
    procedure Compile_Init (Analyze_Only : Boolean) is
    begin
       Common_Compile_Init (Analyze_Only);
+
+      Vhdl.Back_End.Sem_Foreign := Vhdl.Back_End.Sem_Foreign_Wrapper'Access;
+
       if Analyze_Only then
          return;
       end if;
 
-      --  FIXME: add a flag to force unnesting.
-      --  Translation.Flag_Unnest_Subprograms := True;
-
       --  The design is always analyzed in whole.
       Flags.Flag_Whole_Analyze := True;
       Vhdl.Canon.Canon_Flag_Add_Labels := True;
-- 
cgit v1.2.3