scripts/adi_env.tcl: print in logs system variables are used

main
Laszlo Nagy 2020-05-15 07:42:50 +01:00 committed by Laszlo Nagy
parent e7600eb552
commit db6af63583
1 changed files with 1 additions and 0 deletions

View File

@ -22,6 +22,7 @@ if [info exists ::env(ADI_GHDL_DIR)] {
# default_value - returned vale in case environment variable does not exists
proc get_env_param {name default_value} {
if [info exists ::env($name)] {
puts "Getting from environment the parameter: $name=$::env($name) "
return $::env($name)
} else {
return $default_value