From 91bcdfae20b484eb379eda53ab757b04d64837c0 Mon Sep 17 00:00:00 2001 From: Stefan Schippers Date: Sun, 11 Feb 2024 17:41:10 +0100 Subject: [PATCH] spice_netlist(): do a round of tcl_hook2() (resolve tcleval(...)) on device_model attribute --- src/spice_netlist.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/spice_netlist.c b/src/spice_netlist.c index 230a3132..412222b3 100644 --- a/src/spice_netlist.c +++ b/src/spice_netlist.c @@ -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);