From bbe42c9fa216335dd56424014bda666a5d6717de Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 31 Oct 2016 06:21:50 +0100
Subject: name_table: auto-initialize.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb
index 94d760d63..725c16e30 100644
--- a/src/ghdldrv/ghdlrun.adb
+++ b/src/ghdldrv/ghdlrun.adb
@@ -604,7 +604,7 @@ package body Ghdlrun is
       Str_Table.Initialize;
       Nodes.Initialize;
       Files_Map.Initialize;
-      Name_Table.Initialize;
+      Name_Table.Finalize;
 
       if Flag_Verbose then
          Ada.Text_IO.Put_Line ("Starting simulation");
-- 
cgit v1.2.3