From 67d99232ec83a09ae66e8608037d219d3850fadb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 28 Mar 2023 07:52:09 +0200
Subject: ghdlrun: report unreferenced nodes with --check-ast

---
 src/ghdldrv/ghdlrun.adb | 5 +++++
 1 file changed, 5 insertions(+)

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.
-- 
cgit v1.2.3