luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

avoid calling simuldir in load_schematic when traversing hierarchy during netlisting

This commit is contained in:
stefan schippers 2023-11-08 02:52:50 +01:00
parent c485e7ef7a
commit 4ff28fd39d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/save.c
View File

@ -2660,7 +2660,7 @@ int save_schematic(const char *schname) /* 20171020 added return value */
tclvareval(xctx->top_path, ".menubar.simulate configure -bg $simulate_bg", NULL); tclvareval(xctx->top_path, ".menubar.simulate configure -bg $simulate_bg", NULL);
tclvareval("set tctx::", xctx->current_win_path, "_simulate $simulate_bg", NULL); tclvareval("set tctx::", xctx->current_win_path, "_simulate $simulate_bg", NULL);
tclvareval("catch {unset tctx::", xctx->current_win_path, "_simulate_id}", NULL); tclvareval("catch {unset tctx::", xctx->current_win_path, "_simulate_id}", NULL);
tcleval("simuldir"); /* set local simulation directory if local_netlist_dir -s set*/ tcleval("simuldir"); /* set local simulation directory if local_netlist_dir is set*/
return 1; return 1;
} }
@ -2849,7 +2849,7 @@ void load_schematic(int load_symbols, const char *fname, int reset_undo, int ale
} }
/* warning if two symbols perfectly overlapped */ /* warning if two symbols perfectly overlapped */
/* warning_overlapped_symbols(0); */ /* do this when netlisting */ /* warning_overlapped_symbols(0); */ /* do this when netlisting */
tcleval("simuldir"); /* set local simulation directory if local_netlist_dir -s set*/ if(reset_undo) tcleval("simuldir"); /* set local simulation directory if local_netlist_dir is set*/
} }
void clear_undo(void) void clear_undo(void)

2
src/xschem.tcl
View File

@ -3798,7 +3798,7 @@ proc set_netlist_dir { change {dir {} }} {
#### set local-to-schematic-dir if local_netlist_dir tcl var is set #### set local-to-schematic-dir if local_netlist_dir tcl var is set
simuldir simuldir
# puts "-->$netlist_dir"
#### change == 0 #### change == 0
if {$change == 0} { if {$change == 0} {
if {$netlist_dir ne {}} { if {$netlist_dir ne {}} {