Added PLATFORM_TCL support to optionally load a Tcl script called bef…

docs/user/FlowVariables.md

@@ -133,6 +133,7 @@ configuration file.
 | <a name="PLACE_PINS_ARGS"></a>PLACE_PINS_ARGS| Arguments to place_pins| | |
 | <a name="PLACE_SITE"></a>PLACE_SITE| Placement site for core cells defined in the technology LEF file.| | |
 | <a name="PLATFORM"></a>PLATFORM| Specifies process design kit or technology node to be used.| | |
+| <a name="PLATFORM_TCL"></a>PLATFORM_TCL| Specifies a Tcl script with commands to run before loading design.| | |
 | <a name="POST_CTS_TCL"></a>POST_CTS_TCL| Specifies a Tcl script with commands to run after CTS is completed.| | |
 | <a name="PROCESS"></a>PROCESS| Technology node or process in use.| | |
 | <a name="PWR_NETS_VOLTAGES"></a>PWR_NETS_VOLTAGES| Used for IR Drop calculation.| | |
@@ -413,6 +414,7 @@ configuration file.
 - [LIB_FILES](#LIB_FILES)
 - [MACRO_EXTENSION](#MACRO_EXTENSION)
 - [PLATFORM](#PLATFORM)
+- [PLATFORM_TCL](#PLATFORM_TCL)
 - [PROCESS](#PROCESS)
 - [RCX_RULES](#RCX_RULES)
 - [RECOVER_POWER](#RECOVER_POWER)

flow/platforms/asap7/config.mk

@@ -7,6 +7,8 @@ ifeq ($(LIB_MODEL),)
 endif
 export LIB_DIR                ?= $(PLATFORM_DIR)/lib/$(LIB_MODEL)
 
+export PLATFORM_TCL            = $(PLATFORM_DIR)/liberty_suppressions.tcl
+
 #Library Setup variable
 export TECH_LEF                = $(PLATFORM_DIR)/lef/asap7_tech_1x_201209.lef
 

flow/platforms/asap7/liberty_suppressions.tcl

@@ -0,0 +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

flow/scripts/load.tcl

@@ -3,6 +3,12 @@ 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)
+  }
+
   # Read liberty files
   source $::env(SCRIPTS_DIR)/read_liberty.tcl
 
@@ -31,7 +37,7 @@ proc load_design {design_file sdc_file} {
     log_cmd source $::env(PLATFORM_DIR)/derate.tcl
   }
 
-  log_cmd source $::env(PLATFORM_DIR)/setRC.tcl
+  source $::env(PLATFORM_DIR)/setRC.tcl
 
   if { [env_var_equals LIB_MODEL CCS] } {
     puts "Using CCS delay calculation"

flow/scripts/read_liberty.tcl

@@ -1,18 +1,11 @@
-# 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
-if {[env_var_equals PLATFORM asap7]} {
-   suppress_message STA 1212
-}
-
 #Read Liberty
 if {[env_var_exists_and_non_empty CORNERS]} {
   # corners
   define_corners {*}$::env(CORNERS)
   foreach corner $::env(CORNERS) {
     set LIBKEY "[string toupper $corner]_LIB_FILES"
     foreach libFile $::env($LIBKEY) {
-    read_liberty -corner $corner $libFile
+      read_liberty -corner $corner $libFile
     }
     unset LIBKEY
   }
@@ -23,7 +16,3 @@ if {[env_var_exists_and_non_empty CORNERS]} {
     read_liberty $libFile
   }
 }
-
-if {[env_var_equals PLATFORM asap7]} {
-   unsuppress_message STA 1212
-}

flow/scripts/variables.yaml

@@ -146,6 +146,9 @@ LIB_FILES:
     A Liberty file of the standard cell library with PVT characterization,
     input and output characteristics, timing and power definitions for each
     cell.
+PLATFORM_TCL:
+  description: |
+    Specifies a Tcl script with commands to run before loading design.
 DONT_USE_CELLS:
   description: |
     Dont use cells eases pin access in detailed routing.