place/route: write out *-failed.odb to allow for inspection of failures

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

Author: oharboe

flow/scripts/detail_place.tcl

@@ -7,7 +7,11 @@ source $::env(PLATFORM_DIR)/setRC.tcl
 set_placement_padding -global \
     -left $::env(CELL_PAD_IN_SITES_DETAIL_PLACEMENT) \
     -right $::env(CELL_PAD_IN_SITES_DETAIL_PLACEMENT)
-detailed_placement
+set result [catch {detailed_placement} errMsg]
+if {$result != 0} {
+  write_db $::env(RESULTS_DIR)/3_5_place_dp-failed.odb
+  error $errMsg
+}
 
 if {[info exists ::env(ENABLE_DPO)] && $::env(ENABLE_DPO)} {
   if {[info exist ::env(DPO_MAX_DISPLACEMENT)]} {

flow/scripts/global_place.tcl

@@ -36,18 +36,25 @@ if {$::env(GPL_TIMING_DRIVEN)} {
     append global_placement_args " -timing_driven"
 }
 
+proc do_placement {place_density global_placement_args} {
+  if { 0 != [llength [array get ::env GLOBAL_PLACEMENT_ARGS]] } {
+  global_placement -density $place_density \
+      -pad_left $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
+      -pad_right $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
+      {*}$global_placement_args \
+      {*}$::env(GLOBAL_PLACEMENT_ARGS)
+  } else {
+  global_placement -density $place_density \
+      -pad_left $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
+      -pad_right $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
+      {*}$global_placement_args
+  }
+}
 
-if { 0 != [llength [array get ::env GLOBAL_PLACEMENT_ARGS]] } {
-global_placement -density $place_density \
-    -pad_left $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
-    -pad_right $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
-    {*}$global_placement_args \
-    {*}$::env(GLOBAL_PLACEMENT_ARGS)
-} else {
-global_placement -density $place_density \
-    -pad_left $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
-    -pad_right $::env(CELL_PAD_IN_SITES_GLOBAL_PLACEMENT) \
-    {*}$global_placement_args
+set result [catch {do_placement $place_density $global_placement_args} errMsg]
+if {$result != 0} {
+  write_db $::env(RESULTS_DIR)/3_3_place_gp-failed.odb
+  error $errMsg
 }
 
 estimate_parasitics -placement

flow/scripts/global_route.tcl

@@ -21,11 +21,18 @@ if {[info exist env(FASTROUTE_TCL)]} {
 #
 # If GLOBAL_ROUTE_ARGS is specified, then we do only what the
 # GLOBAL_ROUTE_ARGS specifies.
-global_route -guide_file $env(RESULTS_DIR)/route.guide \
-               -congestion_report_file $env(REPORTS_DIR)/congestion.rpt \
-               {*}[expr {[info exists ::env(GLOBAL_ROUTE_ARGS)] ? $::env(GLOBAL_ROUTE_ARGS) : \
-               {-congestion_iterations 30 -congestion_report_iter_step 5 -verbose}}]
+proc do_global_route {} {
+  global_route -guide_file $::env(RESULTS_DIR)/route.guide \
+                -congestion_report_file $::env(REPORTS_DIR)/congestion.rpt \
+                {*}[expr {[info exists ::env(GLOBAL_ROUTE_ARGS)] ? $::env(GLOBAL_ROUTE_ARGS) : \
+                {-congestion_iterations 30 -congestion_report_iter_step 5 -verbose}}]
+}
 
+set result [catch {do_global_route} errMsg]
+if {$result != 0} {
+  write_db $::env(RESULTS_DIR)/5_1_grt-failed.odb
+  error $errMsg
+}
 
 set_placement_padding -global \
     -left $::env(CELL_PAD_IN_SITES_DETAIL_PLACEMENT) \