diff options
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index e72f3d18d..f41a22e9a 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -35,6 +35,7 @@ with Vhdl.Std_Package; with Vhdl.Canon; with Vhdl.Ieee.Std_Logic_1164; with Vhdl.Back_End; +with Vhdl.Nodes_GC; with Ortho_Jit; with Ortho_Nodes; use Ortho_Nodes; with Trans_Decls; @@ -142,6 +143,10 @@ package body Ghdlrun is -- This may happen (bad entity for example). raise Compilation_Error; end if; + + if Flags.Check_Ast_Level > 0 then + Vhdl.Nodes_GC.Report_Unreferenced; + end if; end Compile_Elab; -- Set options. |