allow tcl commands ( [..cmds..] ) in Simulation->configure simulators and tools (useful to retrieve needed information about current dir etc.).

This commit is contained in:
Stefan Schippers 2020-11-10 17:48:26 +01:00
parent 61dd4e99b0
commit 9b5bd75ec8
1 changed files with 2 additions and 2 deletions

View File

@ -705,7 +705,7 @@ proc simulate {{callback {}}} {
} else {
set fg {execute}
}
set cmd [subst -nocommands $sim($tool,$def,cmd)]
set cmd [subst $sim($tool,$def,cmd)]
if {$::OS == "Windows"} {
eval exec $cmd # $cmd cannot be surrounded by {} as exec will change forward slash to backward slash
} else {
@ -816,7 +816,7 @@ proc waves {} {
} else {
set fg {execute}
}
set cmd [subst -nocommands $sim($tool,$def,cmd)]
set cmd [subst $sim($tool,$def,cmd)]
$fg $st sh -c "cd $netlist_dir; $cmd"
}
}