ghdlrun: report unreferenced nodes with --check-ast

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.