scripts: repair_tie_fanout_helper moved from util..tcl to floorplan.tcl

It was only used in one place

Signed-off-by: Øyvind Harboe <[email protected]>

Author: oharboe

flow/scripts/floorplan.tcl

@@ -97,7 +97,19 @@ source_env_var_if_exists FOOTPRINT_TCL
 
 # This needs to come before any call to remove_buffers.  You could have one
 # tie driving multiple buffers that drive multiple outputs.
-repair_tie_fanout_helper
+# Repair tie lo fanout
+puts "Repair tie lo fanout..."
+set tielo_cell_name [lindex $::env(TIELO_CELL_AND_PORT) 0]
+set tielo_lib_name [get_name [get_property [lindex [get_lib_cell $tielo_cell_name] 0] library]]
+set tielo_pin $tielo_lib_name/$tielo_cell_name/[lindex $::env(TIELO_CELL_AND_PORT) 1]
+repair_tie_fanout -separation $::env(TIE_SEPARATION) $tielo_pin
+
+# Repair tie hi fanout
+puts "Repair tie hi fanout..."
+set tiehi_cell_name [lindex $::env(TIEHI_CELL_AND_PORT) 0]
+set tiehi_lib_name [get_name [get_property [lindex [get_lib_cell $tiehi_cell_name] 0] library]]
+set tiehi_pin $tiehi_lib_name/$tiehi_cell_name/[lindex $::env(TIEHI_CELL_AND_PORT) 1]
+repair_tie_fanout -separation $::env(TIE_SEPARATION) $tiehi_pin
 
 if { [env_var_exists_and_non_empty SWAP_ARITH_OPERATORS] } {
   estimate_parasitics -placement

flow/scripts/util.tcl

@@ -13,22 +13,6 @@ proc log_cmd { cmd args } {
   return $result
 }
 
-proc repair_tie_fanout_helper { } {
-  # Repair tie lo fanout
-  puts "Repair tie lo fanout..."
-  set tielo_cell_name [lindex $::env(TIELO_CELL_AND_PORT) 0]
-  set tielo_lib_name [get_name [get_property [lindex [get_lib_cell $tielo_cell_name] 0] library]]
-  set tielo_pin $tielo_lib_name/$tielo_cell_name/[lindex $::env(TIELO_CELL_AND_PORT) 1]
-  repair_tie_fanout -separation $::env(TIE_SEPARATION) $tielo_pin
-
-  # Repair tie hi fanout
-  puts "Repair tie hi fanout..."
-  set tiehi_cell_name [lindex $::env(TIEHI_CELL_AND_PORT) 0]
-  set tiehi_lib_name [get_name [get_property [lindex [get_lib_cell $tiehi_cell_name] 0] library]]
-  set tiehi_pin $tiehi_lib_name/$tiehi_cell_name/[lindex $::env(TIEHI_CELL_AND_PORT) 1]
-  repair_tie_fanout -separation $::env(TIE_SEPARATION) $tiehi_pin
-}
-
 proc repair_timing_helper { args } {
   set additional_args "$args -verbose"
   append_env_var additional_args SETUP_SLACK_MARGIN -setup_margin 1