removed some static hashtable declarations in netlisting code

This commit is contained in:
Stefan Frederik 2022-10-25 23:37:28 +02:00
parent a61f4499ac
commit 066a65bfef
4 changed files with 6 additions and 4 deletions

View File

@ -1788,6 +1788,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
else
if(has_x) tcleval("tk_messageBox -type ok -parent [xschem get topwindow] "
"-message {Please Set netlisting mode (Options menu)}");
Tcl_ResetResult(interp);
}
}

View File

@ -23,8 +23,6 @@
#include "xschem.h"
static Str_hashtable model_table = {NULL, 0}; /* safe even with multiple schematics */
static Str_hashentry *model_entry; /* safe even with multiple schematics */
static Str_hashtable subckt_table = {NULL, 0}; /* safe even with multiple schematics */
void hier_psprint(void) /* netlister driver */
{
@ -32,6 +30,7 @@ void hier_psprint(void) /* netlister driver */
char *subckt_name;
char filename[PATH_MAX];
char *abs_path = NULL;
Str_hashtable subckt_table = {NULL, 0};
if(!ps_draw(1)) return; /* prolog */
xctx->push_undo();
@ -197,6 +196,8 @@ void global_spice_netlist(int global) /* netlister driver */
char *abs_path = NULL;
int top_sub;
int split_f;
Str_hashtable subckt_table = {NULL, 0};
Str_hashentry *model_entry;
split_f = tclgetboolvar("split_files");
top_sub = tclgetboolvar("top_subckt");

View File

@ -21,7 +21,6 @@
*/
#include "xschem.h"
static Str_hashtable subckt_table = {NULL, 0}; /* safe even with multiple schematics */
static void verilog_netlist(FILE *fd , int verilog_stop)
{
@ -91,6 +90,7 @@ void global_verilog_netlist(int global) /* netlister driver */
char *abs_path = NULL;
int split_f;
const char *fmt_attr = NULL;
Str_hashtable subckt_table = {NULL, 0};
split_f = tclgetboolvar("split_files");
xctx->push_undo();

View File

@ -22,7 +22,6 @@
#include "xschem.h"
static Str_hashtable subckt_table = {NULL, 0}; /* safe even with multiple schematics */
static void vhdl_netlist(FILE *fd , int vhdl_stop)
{
@ -129,6 +128,7 @@ void global_vhdl_netlist(int global) /* netlister driver */
char *subckt_name;
char *abs_path = NULL;
int split_f;
Str_hashtable subckt_table = {NULL, 0};
split_f = tclgetboolvar("split_files");
xctx->push_undo();