From 1f0d7ffddeb55edc068f24bdf55ae58dba0bbb4b Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Sat, 27 Jun 2020 16:24:17 -0700
Subject: [PATCH] report_net pin locations

---
 tcl/Network.tcl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tcl/Network.tcl b/tcl/Network.tcl
index 352207a2..b35daed8 100644
--- a/tcl/Network.tcl
+++ b/tcl/Network.tcl
@@ -382,7 +382,7 @@ proc report_net_pin { pin verbose corner digits } {
 	puts -nonewline [port_capacitance_str $liberty_port $digits]
       }
     }
-    puts ""
+    puts "[pin_location_str $pin]"
   } elseif [$pin is_top_level_port] {
     puts -nonewline " [get_full_name $pin] [pin_direction $pin] port"
     if { $verbose } {
@@ -404,12 +404,17 @@ proc report_net_pin { pin verbose corner digits } {
 	puts -nonewline " pin [capacitances_str $cap_r_min $cap_r_max $cap_f_min $cap_f_max $digits]"
       }
     }
-    puts ""
+    puts "[pin_location_str $pin]"
   } elseif [$pin is_hierarchical] {
     puts " [get_full_name $pin] [pin_direction $pin]"
   }
 }
 
+# default handler
+proc pin_location_str { pin } {
+  return ""
+}
+
 ################################################################
 
 proc report_pin_ { pin } {