avoid loading odb if design is already loaded

Signed-off-by: Eder Monteiro <[email protected]>

Author: eder-matheus

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 } {
+  # Do not reload if design is already loaded
+  set db [ord::get_db]
+  if { [$db getChip] != "NULL" && [[$db getChip] getBlock] != "NULL" } {
+    return
+  }
+
   source_env_var_if_exists PLATFORM_TCL
 
   source $::env(SCRIPTS_DIR)/read_liberty.tcl