commit 37dc92c4eec2c506a246ee284412b6797f703f51
author Eitan Shapira <eitan.shapira@nuvoton.com> Wed Feb 17 12:42:23 2021 +0200
committer Rupert Swarbrick <rswarbrick@gmail.com> Wed Feb 17 17:57:31 2021 +0000
tree 699eb6c6617dca93eda73c8eda0c0bb9e3b7ca22
parent 9dffa1b320ff70f1fd724a0cfb67f418c6caf437

[dv/tools] Bug fix to common.tcl tb_top section.

Signed-off-by: Eitan Shapira <eitan.shapira@nuvoton.com>

hw/dv/tools/common.tcl

diff --git a/hw/dv/tools/common.tcl b/hw/dv/tools/common.tcl
index f9a941d..7279aef 100644
--- a/hw/dv/tools/common.tcl
+++ b/hw/dv/tools/common.tcl
@@ -17,8 +17,9 @@
 }
 
 set tb_top "tb"
-if {[info exists ::(TB_TOP)]} {
+if {[info exists ::env(TB_TOP)]} {
   set tb_top "$::env(TB_TOP)"
+} else {
   puts "WARNING: TB_TOP environment variable not set - using \"tb\" as the
         top level testbench hierarchy."
 }