plot: plot yosys gate equivalents against area

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

Author: oharboe

flow/scripts/plot_keep.py

@@ -0,0 +1,41 @@
+# Load two files passed on the command line with dictionaries
+# of the format below, then plot XY scatter plot of the data
+#
+# rvdff_WIDTH13 13
+# rvdff_WIDTH14 14
+
+
+import sys
+import matplotlib.pyplot as plt
+
+
+def load_data(filename):
+    data = {}
+    with open(filename) as f:
+        for line in f:
+            key, value = line.split()
+            data[key] = float(value)
+    return data
+
+
+def plot_data(x, y):
+    plt.scatter(x, y)
+    plt.xlabel("Yosys gate equivalents")
+    plt.ylabel("OpenROAD area (um^2)")
+    plt.show()
+
+
+def main():
+    if len(sys.argv) != 3:
+        print("Usage: {} datafile1 datafile2".format(sys.argv[0]))
+        sys.exit(1)
+    data1 = load_data(sys.argv[1])
+    data2 = load_data(sys.argv[2])
+    keys = set(data1.keys()) & set(data2.keys())
+    x = [data1[key] for key in keys]
+    y = [data2[key] for key in keys]
+    plot_data(x, y)
+
+
+if __name__ == "__main__":
+    main()

flow/scripts/report_area.tcl

@@ -0,0 +1,39 @@
+source $::env(SCRIPTS_DIR)/load.tcl
+erase_non_stage_variables floorplan
+load_design 2_1_floorplan.odb 2_1_floorplan.sdc
+
+set db [ord::get_db]
+set chip [$db getChip]
+set block [$chip getBlock]
+
+set scale_to_um [expr [$block getDbUnitsPerMicron] * [$block getDbUnitsPerMicron]]
+
+set insts [$block getInsts]
+
+proc insts_area {insts} {
+  global scale_to_um
+  set area 0
+  foreach inst $insts {
+    set bbox [$inst getBBox]
+    set area [expr $area + [$bbox getDX] * [$bbox getDY]]
+  }
+  return [expr $area / $scale_to_um]
+}
+
+proc module_area {module} {
+  global scale_to_um
+  set area 0
+  set insts [$module getLeafInsts]
+  foreach inst $insts {
+    set bbox [$inst getBBox]
+    set area [expr $area + [$bbox getDX] * [$bbox getDY]]
+  }
+  return [expr $area / $scale_to_um]
+}
+
+set f [open $::env(REPORTS_DIR)/2_area.txt w]
+foreach module [$block getModules] {
+  set area [module_area $module]
+  puts $f "[$module getName] $area"
+}   
+close $f

flow/scripts/synth.tcl

@@ -22,6 +22,22 @@ if {![env_var_equals SYNTH_HIERARCHICAL 1]} {
     puts "Ungroup modules below estimated size of $ungroup_threshold instances"
 
     convert_liberty_areas
+
+    # Don't know how to enumerate gate equivalents for cells in the design
+    # so set keep threshold to one and parse log for now
+    tee -o $::env(OBJECTS_DIR)/1_keep.txt keep_hierarchy -min_cost 1
+    set f [open $::env(OBJECTS_DIR)/1_keep.txt r]
+    set keep_hierarchy [read $f]
+    close $f
+    set f [open $::env(REPORTS_DIR)/1_keep.txt w]
+    foreach line [split $keep_hierarchy \n] {
+      if {[regexp {Keeping (\S+) \(estimated size above threshold: (\d+) >} $line _ cell size]} {
+        puts $f "$cell $size"
+      }
+    }
+    close $f
+    # clear change and reapply it with the threshold
+    setattr -unset A:keep_hierarchy=1
     keep_hierarchy -min_cost $ungroup_threshold
   } else {
     keep_hierarchy