From 832dea6c6670cb2eda6c52287d0b18f021472989 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 11 Feb 2023 13:34:28 +0100 Subject: ghdllocal, ghdlxml: adjust after previous commit; fix #2349 --- src/ghdldrv/ghdllocal.adb | 3 +++ src/ghdldrv/ghdlxml.adb | 3 +++ 2 files changed, 6 insertions(+) (limited to 'src') diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 756589602..e7e8f5261 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -1044,6 +1044,9 @@ package body Ghdllocal is is Error : Boolean; begin + -- Allow syntax checking with simply imported dependencies. + Flags.Flag_Elaborate_With_Outdated := True; + Analyze_Files (Args, False, Error); if Error xor Cmd.Flag_Expect_Failure then raise Errorout.Compilation_Error; diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 8ab10db86..2729f0b1b 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -18,6 +18,7 @@ with GNAT.OS_Lib; use GNAT.OS_Lib; with Simple_IO; use Simple_IO; with Types; use Types; +with Flags; with Name_Table; use Name_Table; with Vhdl.Nodes_Meta; use Vhdl.Nodes_Meta; with Files_Map; @@ -557,6 +558,8 @@ package body Ghdlxml is return; end if; + Flags.Flag_Elaborate_With_Outdated := True; + -- Parse all files. for I in Files'Range loop Id := Get_Identifier (Files_Name (I).all); -- cgit v1.2.3