From 2f3707ceb2c6ab25a24a280791339c7294ab732c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 13 Oct 2016 05:18:57 +0200
Subject: nodes_gc: a leak is an error.

---
 src/vhdl/nodes_gc.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/nodes_gc.adb b/src/vhdl/nodes_gc.adb
index 3ff1002a2..9b1c34cf7 100644
--- a/src/vhdl/nodes_gc.adb
+++ b/src/vhdl/nodes_gc.adb
@@ -123,7 +123,7 @@ package body Nodes_GC is
    procedure Report_Unreferenced_Node (N : Iir) is
    begin
       Disp_Tree.Disp_Tree (N, True);
-      --  Has_Error := True;
+      Has_Error := True;
    end Report_Unreferenced_Node;
 
    procedure Mark_Iir_Ref_Field (N : Iir; F : Fields_Enum) is
-- 
cgit v1.2.3