gui: fix crash when loading hierarchical database

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

Author: oharboe

flow/scripts/load.tcl

@@ -2,20 +2,6 @@ source $::env(SCRIPTS_DIR)/util.tcl
 
 source $::env(SCRIPTS_DIR)/report_metrics.tcl
 
-# Feature toggle for now, eventually the -hier option
-# will be default and this code will be deleted.
-proc hier_options { } {
-  if {
-    [env_var_exists_and_non_empty SYNTH_WRAPPED_OPERATORS] ||
-    [env_var_exists_and_non_empty SWAP_ARITH_OPERATORS] ||
-    [env_var_equals OPENROAD_HIERARCHICAL 1]
-  } {
-    return "-hier"
-  } else {
-    return ""
-  }
-}
-
 proc load_design { design_file sdc_file } {
   source_env_var_if_exists PLATFORM_TCL
 
@@ -32,9 +18,9 @@ proc load_design { design_file sdc_file } {
       }
     }
     read_verilog $::env(RESULTS_DIR)/$design_file
-    link_design {*}[hier_options] $::env(DESIGN_NAME)
+    log_cmd link_design {*}[hier_options] $::env(DESIGN_NAME)
   } elseif { $ext == ".odb" } {
-    read_db {*}[hier_options] $::env(RESULTS_DIR)/$design_file
+    log_cmd read_db {*}[hier_options] $::env(RESULTS_DIR)/$design_file
   } else {
     error "Unrecognized input file $design_file"
   }

flow/scripts/open.tcl

@@ -16,7 +16,7 @@ if { [env_var_exists_and_non_empty DEF_FILE] } {
   log_cmd read_def $input_file
 } else {
   set input_file $::env(ODB_FILE)
-  log_cmd read_db $input_file
+  log_cmd read_db {*}[hier_options] $input_file
 }
 
 proc read_timing { input_file } {

flow/scripts/util.tcl

@@ -186,3 +186,17 @@ proc source_env_var_if_exists { env_var } {
     log_cmd source $::env($env_var)
   }
 }
+
+# Feature toggle for now, eventually the -hier option
+# will be default and this code will be deleted.
+proc hier_options { } {
+  if {
+    [env_var_exists_and_non_empty SYNTH_WRAPPED_OPERATORS] ||
+    [env_var_exists_and_non_empty SWAP_ARITH_OPERATORS] ||
+    [env_var_equals OPENROAD_HIERARCHICAL 1]
+  } {
+    return "-hier"
+  } else {
+    return ""
+  }
+}