From 8e60561bb5cd0f04cf74d375586d553a87228e1c Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Mon, 22 Nov 2021 07:37:24 -0800
Subject: [PATCH] report_net rm empty unused pin group headers

Signed-off-by: James Cherry <cherry@parallaxsw.com>
---
 tcl/Network.tcl | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/tcl/Network.tcl b/tcl/Network.tcl
index a9c4a024..7af90f44 100644
--- a/tcl/Network.tcl
+++ b/tcl/Network.tcl
@@ -295,15 +295,11 @@ proc report_net1 { net connections verbose hier_pins corner digits } {
     if {$verbose} {
       report_net_caps $net $pins $corner $digits
     }
-    report_line "Driver pins"
-    report_net_pins $pins "is_driver" $verbose $corner $digits
-    report_line ""
-    report_line "Load pins"
-    report_net_pins $pins "is_load" $verbose $corner $digits
+    report_net_pins $pins "Driver pins" "is_driver" $verbose $corner $digits
+    report_net_pins $pins "Load pins" "is_load" $verbose $corner $digits
     if {$hier_pins} {
-      report_line ""
-      report_line "Hierarchical pins"
-      report_net_pins $pins "is_hierarchical" $verbose $corner $digits
+      report_net_pins $pins "Hierarchical pins" "is_hierarchical" \
+        $verbose $corner $digits
     }
     report_net_other_pins $pins $verbose $corner $digits
   }
@@ -352,12 +348,20 @@ proc report_net_cap { net caption cap_msg corner digits } {
   report_line " $caption capacitance: [capacitance_range_str $cap_min $cap_max $digits]"
 }
 
-proc report_net_pins { pins pin_pred verbose corner digits } {
+proc report_net_pins { pins header pin_pred verbose corner digits } {
+  set found 0
   foreach pin $pins {
     if {[$pin $pin_pred]} {
+      if { !$found } {
+        report_line $header
+        set found 1
+      }
       report_net_pin $pin $verbose $corner $digits
     }
   }
+  if { $found } {
+    report_line ""
+  }
 }
 
 proc report_net_other_pins { pins verbose corner digits } {