cts.tcl: add make do-cts CTS_SNAPSHOT=1 option

It is useful to go into the GUI to look at pre-repair timing reports.

Run:

make do-cts CTS_SNAPSHOT=1

Then copy and paste the make statement from the log
for the snapshot you are interested in:

make gui_4_1_pre_repair.odb

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

Author: oharboe

flow/scripts/cts.tcl

@@ -18,6 +18,12 @@ if {[info exist ::env(CTS_CLUSTER_DIAMETER)]} {
   set cluster_diameter 100
 }
 
+proc save_progress {stage} {
+  puts "Run 'make gui_$stage.odb' to load progress snapshot"
+  write_db $::env(RESULTS_DIR)/$stage.odb
+  write_sdc $::env(RESULTS_DIR)/$stage.sdc
+}
+
 if {[info exist ::env(CTS_BUF_DISTANCE)]} {
   clock_tree_synthesis -root_buf "$::env(CTS_BUF_CELL)" -buf_list "$::env(CTS_BUF_CELL)" \
                       -sink_clustering_enable \
@@ -33,6 +39,9 @@ if {[info exist ::env(CTS_BUF_DISTANCE)]} {
                       -balance_levels
 }
 
+if {[info exist ::env(CTS_SNAPSHOTS)]} {
+  save_progress 4_1_pre_repair_clock_nets
+}
 
 set_propagated_clock [all_clocks]
 
@@ -59,6 +68,10 @@ detailed_placement
 
 estimate_parasitics -placement
 
+if {[info exist ::env(CTS_SNAPSHOTS)]} {
+  save_progress 4_1_pre_repair_hold_setup
+}
+
 puts "Repair setup and hold violations..."
 
 # process user settings
@@ -89,10 +102,8 @@ repair_timing {*}$additional_args
 
 set result [catch {detailed_placement} msg]
 if {$result != 0} {
+  save_progress 4_1_error
   puts "Detailed placement failed in CTS: $msg"
-  puts "Run 'make gui_4_1_error.odb' to load failed snapshot"
-  write_db $::env(RESULTS_DIR)/4_1_error.odb
-  write_sdc $::env(RESULTS_DIR)/4_1_error.sdc
   return -code $result
 }