spice_netlist(): do a round of tcl_hook2() (resolve tcleval(...)) on device_model attribute

This commit is contained in:
Stefan Schippers 2024-02-11 17:41:10 +01:00
parent 87fa701283
commit 91bcdfae20
1 changed files with 2 additions and 0 deletions

View File

@ -220,12 +220,14 @@ static int spice_netlist(FILE *fd, int spice_stop )
my_strdup2(_ALLOC_ID_, &val, get_tok_value(xctx->inst[i].prop_ptr, "device_model", 2));
m = val;
if(strchr(val, '@')) m = translate(i, val);
else m = tcl_hook2(m);
if(m[0]) str_hash_lookup(&model_table, model_name(m), m, XINSERT);
else {
my_strdup2(_ALLOC_ID_, &val,
get_tok_value( (xctx->inst[i].ptr+ xctx->sym)->prop_ptr, "device_model", 2));
m = val;
if(strchr(val, '@')) m = translate(i, val);
else m = tcl_hook2(m);
if(m[0]) str_hash_lookup(&model_table, model_name(m), m, XINSERT);
}
my_free(_ALLOC_ID_, &model_name_result);