Fixed Tclint issue.

Signed-off-by: Jaehyun Kim <[email protected]>

Author: jhkim-pii

src/dbSta/test/get_ports1.tcl

@@ -1,20 +1,23 @@
 # get_ports on a bus
 source "helpers.tcl"
+
+# tclint-disable
+proc print_info { objs } {
+  set obj_names {}
+  foreach obj $objs {
+    lappend obj_names [get_name $obj]
+  }
+  puts "[lsort $obj_names]"
+  puts "count: [llength $objs]"
+  puts ""
+}
+# tclint-enable
+
 read_lef Nangate45/Nangate45.lef
 read_liberty Nangate45/Nangate45_typ.lib
 read_verilog get_ports1.v
 link_design top
 
-proc print_info {objs} {
-    set obj_names {}
-    foreach obj $objs {
-        lappend obj_names [get_name $obj]
-    }
-    puts "[lsort $obj_names]"
-    puts "count: [llength $objs]"
-    puts ""
-}
-
 print_info [get_ports *]
 
 # top module ports

src/dbSta/test/get_ports1_hier.tcl

@@ -1,20 +1,23 @@
-# get_ports on a bus
+# get_ports on a bus in hierarchical flow
 source "helpers.tcl"
+
+# tclint-disable
+proc print_info { objs } {
+  set obj_names {}
+  foreach obj $objs {
+    lappend obj_names [get_name $obj]
+  }
+  puts "[lsort $obj_names]"
+  puts "count: [llength $objs]"
+  puts ""
+}
+# tclint-enable
+
 read_lef Nangate45/Nangate45.lef
 read_liberty Nangate45/Nangate45_typ.lib
 read_verilog get_ports1.v
 link_design top -hier
 
-proc print_info {objs} {
-    set obj_names {}
-    foreach obj $objs {
-        lappend obj_names [get_name $obj]
-    }
-    puts "[lsort $obj_names]"
-    puts "count: [llength $objs]"
-    puts ""
-}
-
 print_info [get_ports *]
 
 # top module ports