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

update_symbol() do not throw away quotes in name attrs (name="some thing")

This commit is contained in:
Stefan Schippers 2020-10-14 16:02:05 +02:00
parent d92bd6590d
commit c70aa9b06d
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/editprop.c
View File

@ -1072,14 +1072,18 @@ void update_symbol(const char *result, int x)
}
}
/* if symbol changed ensure instance name (with new prefix char) is unique */
my_strdup(152, &name, get_tok_value(xctx.inst[i].prop_ptr, "name", 0));
if(name && name[0] ) {
dbg(1, "update_symbol(): prefix!='\\0', name=%s\n", name);
new_name = get_tok_value(xctx.inst[i].prop_ptr, "name", 0);
new_name = get_tok_value(xctx.inst[i].prop_ptr, "name", 1); /* retain quotes in name if any */
if(new_name[0]) {
if(allow_change_name || (lastselected == 1) ) my_strdup(153, &name, new_name);
/* 20110325 only modify prefix if prefix not NUL */
if(prefix) name[0]=prefix; /* change prefix if changing symbol type; */
if(prefix) {
if(name[0] != '"')
name[0]=prefix; /* change prefix if changing symbol type; */
else
name[1]=prefix; /* change prefix if changing symbol type; */
}
dbg(1, "update_symbol(): name=%s, xctx.inst[i].prop_ptr=%s\n", name, xctx.inst[i].prop_ptr);
my_strdup(89, &ptr,subst_token(xctx.inst[i].prop_ptr, "name", name) );
/* set name of current inst */

1
src/xinit.c
View File

@ -1180,6 +1180,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
init_color_array(0.0);
my_snprintf(tmp, S(tmp), "%d",debug_var);
tclsetvar("tcl_debug",tmp );
tclsetvar("menu_tcl_debug",debug_var ? "1" : "0" );
if(flat_netlist) tclsetvar("flat_netlist","1");
lw=1;