From ea4a99c9b0a864868e3d222e3a2c8fb0397146fb Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Sat, 1 Feb 2020 10:19:10 -0700
Subject: [PATCH] get_lib_pins reorg

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

diff --git a/tcl/Sdc.tcl b/tcl/Sdc.tcl
index 0f3b6887..cce5d13e 100644
--- a/tcl/Sdc.tcl
+++ b/tcl/Sdc.tcl
@@ -672,6 +672,7 @@ proc get_lib_pins { args } {
   
   set regexp [info exists flags(-regexp)]
   set nocase [info exists flags(-nocase)]
+  set quiet [info exists flags(-quiet)]
   # Copy backslashes that will be removed by foreach.
   set patterns [string map {\\ \\\\} [lindex $args 0]]
   # Parse library_name/cell_name/pattern.
@@ -697,22 +698,22 @@ proc get_lib_pins { args } {
 	    }
 	  }
 	  if { $ports == {} } {
-	    if {![info exists flags(-quiet)]} {
+	    if { !$quiet } {
 	      sta_warn "port '$port_pattern' not found."
 	    }
 	  }
 	} else {
-	  if {![info exists flags(-quiet)]} {
+	  if { !$quiet } {
 	    sta_warn "cell '$cell_name' not found."
 	  }
 	}
       } else {
-	if {![info exists flags(-quiet)]} {
+	if { !$quiet } {
 	  sta_warn "library '$lib_name' not found."
 	}
       }
     } else {
-      if {![info exists flags(-quiet)]} {
+      if { !$quiet } {
 	sta_warn "library/cell/port '$pattern' not found."
       }
     }