From b32582dfaa8cb73800f986bde4177749cdca788d Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Sun, 20 Sep 2020 22:30:22 -0700
Subject: [PATCH] create_generated_clock net

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

diff --git a/tcl/Sdc.tcl b/tcl/Sdc.tcl
index 8f2e42c0..a240cdab 100644
--- a/tcl/Sdc.tcl
+++ b/tcl/Sdc.tcl
@@ -1130,9 +1130,16 @@ proc create_generated_clock { args } {
     flags {-invert -combinational -add}
   
   check_argc_eq1 "create_generated_clock" $args
-  set pins [get_port_pins_error "pins" [lindex $args 0]]
+  parse_port_pin_net_arg [lindex $args 0] pins nets
+  # Convert net args to net driver pin.
+  foreach net $nets {
+    set drivers [net_driver_pins $net]
+    if { $drivers != {} } {
+      lappend pins [lindex $drivers 0]
+    }
+  }
   if { $pins == {} } {
-    sta_error "empty ports/pins argument."
+    sta_error "empty ports/pins/nets argument."
   }
   set add [info exists flags(-add)]