From 535a09edcc4e0e2d0bc363938bd72f8d7cd5db59 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Fri, 3 Jul 2020 18:19:39 -0700
Subject: [PATCH] get_cells -of_objects ports

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

diff --git a/tcl/Sdc.tcl b/tcl/Sdc.tcl
index 1839abc3..9566572f 100644
--- a/tcl/Sdc.tcl
+++ b/tcl/Sdc.tcl
@@ -502,9 +502,16 @@ proc get_cells { args } {
     if { $args != {} } {
       sta_warn "patterns argument not supported with -of_objects."
     }
-    parse_pin_net_args $keys(-of_objects) pins nets
+    parse_port_pin_net_arg $keys(-of_objects) pins nets
     foreach pin $pins {
-      lappend insts [$pin instance]
+      if { [$pin is_top_level_port] } {
+	set net [get_nets [get_name $pin]]
+	if { $net != "NULL" } {
+	  lappend nets $net
+	}
+      } else {
+	lappend insts [$pin instance]
+      }
     }
     foreach net $nets {
       set pin_iter [$net pin_iterator]