Merge pull request #3313 from Pinata-Consulting/reduce-log-spam

make: silently suppress warnings in read_liberty.tcl

Author: maliberty

flow/platforms/asap7/liberty_suppressions.tcl

@@ -1,4 +1,4 @@
 # To remove [WARNING STA-1212] from the logs for ASAP7.
 # /OpenROAD-flow-scripts/flow/platforms/asap7/lib/asap7sc7p5t_SIMPLE_RVT_TT_nldm_211120.lib.gz line 13178, timing group from output port.
 # Added following suppress_message
-log_cmd suppress_message STA 1212
+suppress_message STA 1212

flow/scripts/load.tcl

@@ -3,13 +3,8 @@ source $::env(SCRIPTS_DIR)/util.tcl
 source $::env(SCRIPTS_DIR)/report_metrics.tcl
 
 proc load_design { design_file sdc_file } {
-  # Source platform-related Tcl command (initially for suppressing Liberty
-  # warnings
-  if { [env_var_exists_and_non_empty PLATFORM_TCL] } {
-    log_cmd source $::env(PLATFORM_TCL)
-  }
+  source_env_var_if_exists PLATFORM_TCL
 
-  # Read liberty files
   source $::env(SCRIPTS_DIR)/read_liberty.tcl
 
   # Read design files

flow/scripts/open.tcl

@@ -1,10 +1,10 @@
 source $::env(SCRIPTS_DIR)/util.tcl
-# Read liberty files
+
+source_env_var_if_exists PLATFORM_TCL
+
 source $::env(SCRIPTS_DIR)/read_liberty.tcl
 
-# Read def
 if { [env_var_exists_and_non_empty DEF_FILE] } {
-  # Read lef
   log_cmd read_lef $::env(TECH_LEF)
   log_cmd read_lef $::env(SC_LEF)
   if { [env_var_exists_and_non_empty ADDITIONAL_LEFS] } {

flow/scripts/util.tcl

@@ -205,3 +205,9 @@ proc place_density_with_lb_addon { } {
   }
   return $place_density
 }
+
+proc source_env_var_if_exists { env_var } {
+  if { [env_var_exists_and_non_empty $env_var] } {
+    source $::env($env_var)
+  }
+}