From 604bc449138c8ed437af080d167b7b5d75856a83 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 30 Dec 2020 16:03:21 +0100
Subject: ghdlrun: factorize code for finalization

---
 src/ghdldrv/ghdlrun.adb | 12 ++----------
 src/options.adb         |  3 +++
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb
index 2e35122e7..ede0e2d85 100644
--- a/src/ghdldrv/ghdlrun.adb
+++ b/src/ghdldrv/ghdlrun.adb
@@ -28,13 +28,11 @@ with Ghdlmain; use Ghdlmain;
 with Ghdllocal; use Ghdllocal;
 with Simple_IO; use Simple_IO;
 
-with Str_Table;
 with Hash;
 with Interning;
-with Files_Map;
 with Name_Table;
 with Flags;
-with Libraries;
+with Options;
 with Errorout; use Errorout;
 
 with Vhdl.Nodes; use Vhdl.Nodes;
@@ -42,7 +40,6 @@ with Vhdl.Std_Package;
 with Vhdl.Errors; use Vhdl.Errors;
 with Vhdl.Canon;
 with Vhdl.Ieee.Std_Logic_1164;
-with Vhdl.Lists;
 with Ortho_Jit;
 with Ortho_Nodes; use Ortho_Nodes;
 with Trans_Decls;
@@ -764,12 +761,7 @@ package body Ghdlrun is
       Ortho_Jit.Finish;
 
       Translation.Finalize;
-      Vhdl.Lists.Finalize;
-      Str_Table.Finalize;
-      Vhdl.Nodes.Finalize;
-      Files_Map.Finalize;
-      Name_Table.Finalize;
-      Libraries.Finalize;
+      Options.Finalize;
 
       if Flag_Verbose then
          Put_Line ("Starting simulation");
diff --git a/src/options.adb b/src/options.adb
index ad9558f9d..e79c4b387 100644
--- a/src/options.adb
+++ b/src/options.adb
@@ -59,6 +59,9 @@ package body Options is
       Vhdl.Nodes.Finalize;
       Files_Map.Finalize;
       Libraries.Finalize;
+      --  TODO: finalize errors (reset counters, handlers...)
+      --  TODO: PSL
+      --  TODO: backend
    end Finalize;
 
    function Option_Warning (Opt: String; Val : Boolean) return Option_State is
-- 
cgit v1.2.3