variables: use default values, gives error on spelling mistakes

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

Author: oharboe

flow/scripts/cts.tcl

@@ -47,11 +47,11 @@ detailed_placement
 
 estimate_parasitics -placement
 
-if { [env_var_equals CTS_SNAPSHOTS 1] } {
+if { $::env(CTS_SNAPSHOTS) } {
   save_progress 4_1_pre_repair_hold_setup
 }
 
-if { ![env_var_equals SKIP_CTS_REPAIR_TIMING 1] } {
+if { !$::env(SKIP_CTS_REPAIR_TIMING) } {
   if { $::env(EQUIVALENCE_CHECK) } {
     write_eqy_verilog 4_before_rsz.v
   }

flow/scripts/density_fill.tcl

@@ -2,7 +2,7 @@ source $::env(SCRIPTS_DIR)/load.tcl
 erase_non_stage_variables final
 load_design 5_route.odb 5_route.sdc
 
-if { [env_var_equals USE_FILL 1] } {
+if { $::env(USE_FILL) } {
   set_propagated_clock [all_clocks]
   density_fill -rules $::env(FILL_CONFIG)
   # The .v file is just for debugging purposes, not a result of

flow/scripts/detail_place.tcl

@@ -7,7 +7,7 @@ source $::env(PLATFORM_DIR)/setRC.tcl
 
 proc do_dpl { } {
   # Only for use with hybrid rows
-  if { [env_var_equals BALANCE_ROWS 1] } {
+  if { $::env(BALANCE_ROWS) } {
     balance_row_usage
   }
 
@@ -16,7 +16,7 @@ proc do_dpl { } {
     -right $::env(CELL_PAD_IN_SITES_DETAIL_PLACEMENT)
   detailed_placement
 
-  if { [env_var_equals ENABLE_DPO 1] } {
+  if { $::env(ENABLE_DPO) } {
     if { [env_var_exists_and_non_empty DPO_MAX_DISPLACEMENT] } {
       improve_placement -max_displacement $::env(DPO_MAX_DISPLACEMENT)
     } else {

flow/scripts/detail_route.tcl

@@ -6,7 +6,7 @@ if { ![grt::have_routes] } {
         in DRC viewer to view congestion"
 }
 
-if { [env_var_equals SKIP_DETAILED_ROUTE 1] } {
+if { !$::env(SKIP_DETAILED_ROUTE) } {
   write_db $::env(RESULTS_DIR)/5_2_route.odb
   exit
 }
@@ -53,7 +53,7 @@ set all_args [concat [list \
 log_cmd detailed_route {*}$all_args
 
 if {
-  ![env_var_equals SKIP_ANTENNA_REPAIR_POST_DRT 1] &&
+  !$::env(SKIP_ANTENNA_REPAIR_POST_DRT) &&
   [env_var_exists_and_non_empty MAX_REPAIR_ANTENNAS_ITER_DRT]
 } {
   set repair_antennas_iters 1

flow/scripts/final_report.tcl

@@ -21,7 +21,7 @@ write_verilog $::env(RESULTS_DIR)/6_final.v \
 # Run extraction and STA
 if {
   [env_var_exists_and_non_empty RCX_RULES]
-  && [env_var_equals SKIP_DETAILED_ROUTE 0]
+  && !$::env(SKIP_DETAILED_ROUTE)
 } {
   # RCX section
   define_process_corner -ext_model_index 0 X

flow/scripts/floorplan.tcl

@@ -111,7 +111,7 @@ if { [env_var_exists_and_non_empty FASTROUTE_TCL] } {
 
 source_env_var_if_exists FOOTPRINT_TCL
 
-if { ![env_var_equals SKIP_REPAIR_TIE_FANOUT 1] } {
+if { !$::env(SKIP_REPAIR_TIE_FANOUT) } {
   # This needs to come before any call to remove_buffers.  You could have one
   # tie driving multiple buffers that drive multiple outputs.
   # Repair tie lo fanout
@@ -134,7 +134,7 @@ if { [env_var_exists_and_non_empty SWAP_ARITH_OPERATORS] } {
   replace_arith_modules
 }
 
-if { [env_var_equals REMOVE_ABC_BUFFERS 1] } {
+if { $::env(REMOVE_ABC_BUFFERS) } {
   # remove buffers inserted by yosys/abc
   remove_buffers
 } else {

flow/scripts/global_place.tcl

@@ -14,7 +14,7 @@ if { $::env(GPL_TIMING_DRIVEN) } {
 # to not buffer IO ports, set environment variable
 # DONT_BUFFER_PORT = 1
 if { ![env_var_exists_and_non_empty FOOTPRINT] } {
-  if { ![env_var_equals DONT_BUFFER_PORTS 1] } {
+  if { !$::env(DONT_BUFFER_PORTS) } {
     puts "Perform port buffering..."
     buffer_ports
   }
@@ -52,7 +52,7 @@ if { $result != 0 } {
 
 estimate_parasitics -placement
 
-if { [env_var_equals CLUSTER_FLOPS 1] } {
+if { $::env(CLUSTER_FLOPS) } {
   cluster_flops
   estimate_parasitics -placement
 }

flow/scripts/global_route.tcl

@@ -91,7 +91,7 @@ proc global_route_helper { } {
     -congestion_report_file $::env(REPORTS_DIR)/congestion_post_recover_power.rpt
 
   if {
-    ![env_var_equals SKIP_ANTENNA_REPAIR 1] &&
+    !$::env(SKIP_ANTENNA_REPAIR) &&
     [env_var_exists_and_non_empty MAX_REPAIR_ANTENNAS_ITER_GRT]
   } {
     puts "Repair antennas..."

flow/scripts/open.tcl

@@ -62,7 +62,7 @@ if { [ord::openroad_gui_compiled] } {
     "OpenROAD - $::env(PLATFORM)/$::env(DESIGN_NICKNAME)/$::env(FLOW_VARIANT) - ${db_basename}"
 }
 
-if { [env_var_equals GUI_TIMING 1] } {
+if { $::env(GUI_TIMING) } {
   puts "GUI_TIMING=1 reading timing, takes a little while for large designs..."
   read_timing $input_file
   if { [gui::enabled] } {

flow/scripts/report_metrics.tcl

@@ -7,7 +7,7 @@ proc report_puts { out } {
 }
 
 proc report_metrics { stage when { include_erc true } { include_clock_skew true } } {
-  if { [env_var_equals SKIP_REPORT_METRICS 1] } {
+  if { $::env(SKIP_REPORT_METRICS) } {
     return
   }
   puts "Report metrics stage $stage, $when..."