diff options
| -rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 7 |
1 files 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; |