Merge pull request #2402 from The-OpenROAD-Project-staging/hier-info

Print flatten/keep info in synth_hier_report.tcl

Author: maliberty

flow/scripts/synth_hier_report.tcl

@@ -63,12 +63,13 @@ proc write_keep_hierarchy {} {
     set split_cont1 [split $contents1 "\n"]
     foreach line $split_cont1 {
       if {[regexp { +Chip area for top module '(\S+)': (.*)} $line -> module_name area]} {
-        puts "Area of module $module_name is $area"
         if {[expr $area > $ungroup_threshold]} {
-            puts "Preserving hierarchical module: $module_name"
+            puts "Preserving module: $module_name (area: $area)"
             puts $out_script_ptr "select -module {$module_name}"
             puts $out_script_ptr "setattr -mod -set keep_hierarchy 1"
             puts $out_script_ptr "select -clear"
+        } else {
+          puts "Flattening module $module_name (area: $area)"
         }
       }
     }