scripts: less repetition

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

Author: oharboe

flow/scripts/cts.tcl

@@ -71,22 +71,12 @@ if {[info exist ::env(CTS_SNAPSHOTS)]} {
   save_progress 4_1_pre_repair_hold_setup
 }
 
-# process user settings
-set additional_args "-verbose"
-append_env_var additional_args SETUP_SLACK_MARGIN -setup_margin 1
-append_env_var additional_args HOLD_SLACK_MARGIN -hold_margin 1
-append_env_var additional_args TNS_END_PERCENT -repair_tns 1
-append_env_var additional_args SKIP_PIN_SWAP -skip_pin_swap 0
-append_env_var additional_args SKIP_GATE_CLONING -skip_gate_cloning 0
-append_env_var additional_args SKIP_BUFFER_REMOVAL -skip_buffer_removal 0
-
 if {[info exists ::env(SKIP_CTS_REPAIR_TIMING)] == 0 || $::env(SKIP_CTS_REPAIR_TIMING) == 0} {
   if {[info exists ::env(EQUIVALENCE_CHECK)] && $::env(EQUIVALENCE_CHECK) == 1} {
       write_eqy_verilog 4_before_rsz.v
   }
 
-  puts "repair_timing [join $additional_args " "]"
-  repair_timing {*}$additional_args
+  repair_timing_helper
 
   if {[info exists ::env(EQUIVALENCE_CHECK)] && $::env(EQUIVALENCE_CHECK) == 1} {
       run_equivalence_test

flow/scripts/floorplan.tcl

@@ -104,13 +104,7 @@ if {[info exists ::env(FOOTPRINT_TCL)]} {
 if { [info exists ::env(REMOVE_ABC_BUFFERS)] && $::env(REMOVE_ABC_BUFFERS) == 1 } {
   remove_buffers
 } else {
-  set additional_args "-verbose"
-  append_env_var additional_args SETUP_SLACK_MARGIN -setup_margin 1
-  append_env_var additional_args TNS_END_PERCENT -repair_tns 1
-  append_env_var additional_args SKIP_PIN_SWAP -skip_pin_swap 0
-  append_env_var additional_args SKIP_GATE_CLONING -skip_gate_cloning 0
-  append_env_var additional_args SKIP_BUFFER_REMOVAL -skip_buffer_removal 0
-  repair_timing {*}$additional_args
+  repair_timing_helper 0
 }
 
 ##### Restructure for timing #########

flow/scripts/global_route.tcl

@@ -72,16 +72,7 @@ proc global_route_helper {} {
     puts "Repair setup and hold violations..."
     estimate_parasitics -global_routing
 
-    # process user settings
-    set additional_args "-verbose"
-    append_env_var additional_args SETUP_SLACK_MARGIN -setup_margin 1
-    append_env_var additional_args HOLD_SLACK_MARGIN -hold_margin 1
-    append_env_var additional_args TNS_END_PERCENT -repair_tns 1
-    append_env_var additional_args SKIP_PIN_SWAP -skip_pin_swap 0
-    append_env_var additional_args SKIP_GATE_CLONING -skip_gate_cloning 0
-    append_env_var additional_args SKIP_BUFFER_REMOVAL -skip_buffer_removal 0
-    puts "repair_timing [join $additional_args " "]"
-    repair_timing {*}$additional_args
+    repair_timing_helper
 
     if {[info exist ::env(DETAILED_METRICS)]} {
       report_metrics 5 "global route post repair timing"

flow/scripts/util.tcl

@@ -14,3 +14,18 @@ proc fast_route {} {
     }
   }
 }
+
+# -hold_margin is only set when hold_margin is set, default 1
+proc repair_timing_helper { {hold_margin 1} } {
+  set additional_args "-verbose"
+  append_env_var additional_args SETUP_SLACK_MARGIN -setup_margin 1
+  if {$hold_margin} {
+    append_env_var additional_args HOLD_SLACK_MARGIN -hold_margin 1
+  }
+  append_env_var additional_args TNS_END_PERCENT -repair_tns 1
+  append_env_var additional_args SKIP_PIN_SWAP -skip_pin_swap 0
+  append_env_var additional_args SKIP_GATE_CLONING -skip_gate_cloning 0
+  append_env_var additional_args SKIP_BUFFER_REMOVAL -skip_buffer_removal 0
+  puts "repair_timing [join $additional_args " "]"
+  repair_timing {*}$additional_args
+}