call simuldir if doing netlist from commandline (xschem -x -r -n -s -q ... )

This commit is contained in:
stefan schippers 2023-11-08 03:46:36 +01:00
parent 4ff28fd39d
commit b51af6422e
1 changed files with 2 additions and 0 deletions

View File

@ -2760,6 +2760,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
remove_symbols();
/* if cli_opt_do_netlist=1 call load_schematic with 'reset_undo=0' avoiding call
to tcl is_xschem_file that could change xctx->netlist_type to symbol */
if(cli_opt_do_netlist) tcleval("simuldir");
load_schematic(1, f, !cli_opt_do_netlist, 1);
tclvareval("update_recent_file {", f, "}", NULL);
} else /* if(!cli_opt_tcl_script[0]) */
@ -2774,6 +2775,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
my_strncpy(fname, abs_sym_path(tmp, ""), S(fname));
/* if cli_opt_do_netlist=1 call load_schematic with 'reset_undo=0' avoiding call
to tcl is_xschem_file that could change xctx->netlist_type to symbol */
if(cli_opt_do_netlist) tcleval("simuldir");
load_schematic(1, fname, !cli_opt_do_netlist, 1);
}
/* Necessary to tell xschem the initial area to display */