From 6c1dadd27cd4f5b21f03f39c737c440dfdae7036 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 2 Dec 2023 23:25:54 +0100
Subject: [PATCH] flush unused symbols at end of netlist

---
 src/spice_netlist.c   | 2 ++
 src/tedax_netlist.c   | 1 +
 src/verilog_netlist.c | 1 +
 src/vhdl_netlist.c    | 1 +
 4 files changed, 5 insertions(+)

diff --git a/src/spice_netlist.c b/src/spice_netlist.c
index 810c054e..ed21c1ec 100644
--- a/src/spice_netlist.c
+++ b/src/spice_netlist.c
@@ -130,6 +130,7 @@ void hier_psprint(char **res, int what)  /* netlister driver */
   my_free(_ALLOC_ID_, &xctx->sch[xctx->currsch]);
   xctx->currsch--;
   unselect_all(1);
+  remove_symbols();
   xctx->pop_undo(4, 0);
   xctx->prev_set_modify = save_prev_mod;
   my_strncpy(xctx->current_name, rel_sym_path(xctx->sch[xctx->currsch]), S(xctx->current_name));
@@ -465,6 +466,7 @@ int global_spice_netlist(int global)  /* netlister driver */
    xctx->currsch--;
    unselect_all(1);
    dbg(1, "global_spice_netlist(): invoking pop_undo(0, 0)\n");
+   remove_symbols();
    xctx->pop_undo(4, 0);
    xctx->prev_set_modify = save_prev_mod;
    if(web_url) {
diff --git a/src/tedax_netlist.c b/src/tedax_netlist.c
index acabf8f2..e4ab931f 100644
--- a/src/tedax_netlist.c
+++ b/src/tedax_netlist.c
@@ -243,6 +243,7 @@ int global_tedax_netlist(int global)  /* netlister driver */
    my_free(_ALLOC_ID_, &xctx->sch[xctx->currsch]);
    xctx->currsch--;
    unselect_all(1);
+   remove_symbols();
    xctx->pop_undo(4, 0);
    xctx->prev_set_modify = save_prev_mod;
    if(web_url) {
diff --git a/src/verilog_netlist.c b/src/verilog_netlist.c
index 706e43ba..7c8e95ee 100644
--- a/src/verilog_netlist.c
+++ b/src/verilog_netlist.c
@@ -364,6 +364,7 @@ int global_verilog_netlist(int global)  /* netlister driver */
    my_free(_ALLOC_ID_, &xctx->sch[xctx->currsch]);
    xctx->currsch--;
    unselect_all(1);
+   remove_symbols();
    xctx->pop_undo(4, 0);
    xctx->prev_set_modify = save_prev_mod;
    if(web_url) {
diff --git a/src/vhdl_netlist.c b/src/vhdl_netlist.c
index 713714a7..21c05a40 100644
--- a/src/vhdl_netlist.c
+++ b/src/vhdl_netlist.c
@@ -453,6 +453,7 @@ int global_vhdl_netlist(int global)  /* netlister driver */
    my_free(_ALLOC_ID_, &xctx->sch[xctx->currsch]);
    xctx->currsch--;
    unselect_all(1);
+   remove_symbols();
    xctx->pop_undo(4, 0);
    xctx->prev_set_modify = save_prev_mod;
    if(web_url) {