allow tcl commands ( [..cmds..] ) in Simulation->configure simulators and tools (useful to retrieve needed information about current dir etc.).
This commit is contained in:
parent
61dd4e99b0
commit
9b5bd75ec8
|
|
@ -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"
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue