From ccff78468b2d59f76c6ae2d4b1e32d3c8b34e0ad Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Mon, 6 Jul 2020 15:42:53 -0700
Subject: [PATCH] pin_location_str

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

diff --git a/tcl/Network.tcl b/tcl/Network.tcl
index b35daed8..4dbcb7da 100644
--- a/tcl/Network.tcl
+++ b/tcl/Network.tcl
@@ -410,9 +410,15 @@ proc report_net_pin { pin verbose corner digits } {
   }
 }
 
-# default handler
+# Used by report_net
 proc pin_location_str { pin } {
-  return ""
+  set loc [pin_location $pin]
+  if { $loc != "" } {
+    lassign $loc x y
+    return " ([format_distance $x 0], [format_distance $y 0])"
+  } else {
+    return ""
+  }
 }
 
 ################################################################