From b7ed8750b367fa96295a6f930fd23d6ef8fbfb34 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Tue, 13 Apr 2021 17:55:19 -0700
Subject: [PATCH] tclListSetPin

---
 tcl/StaTcl.i | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index 7c9ef0df..6edea79f 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -215,6 +215,13 @@ tclListSet(Tcl_Obj *const source,
     return nullptr;
 }
 
+PinSet *
+tclListSetPin(Tcl_Obj *const source,
+              Tcl_Interp *interp)
+{
+  return tclListSet<Pin*>(source, SWIGTYPE_p_Pin, interp);
+}
+
 StringSet *
 tclListSetConstChar(Tcl_Obj *const source,
 		    Tcl_Interp *interp)
@@ -1074,7 +1081,7 @@ using namespace sta;
 }
 
 %typemap(in) PinSet* {
-  $1 = tclListSet<Pin*>($input, SWIGTYPE_p_Pin, interp);
+  $1 = tclListSetPin($input, interp);
 }
 
 %typemap(out) PinSet* {