tclListSetPin

This commit is contained in:
James Cherry 2021-04-13 17:55:19 -07:00
parent a1df318eeb
commit b7ed8750b3
1 changed files with 8 additions and 1 deletions

View File

@ -215,6 +215,13 @@ tclListSet(Tcl_Obj *const source,
return nullptr; return nullptr;
} }
PinSet *
tclListSetPin(Tcl_Obj *const source,
Tcl_Interp *interp)
{
return tclListSet<Pin*>(source, SWIGTYPE_p_Pin, interp);
}
StringSet * StringSet *
tclListSetConstChar(Tcl_Obj *const source, tclListSetConstChar(Tcl_Obj *const source,
Tcl_Interp *interp) Tcl_Interp *interp)
@ -1074,7 +1081,7 @@ using namespace sta;
} }
%typemap(in) PinSet* { %typemap(in) PinSet* {
$1 = tclListSet<Pin*>($input, SWIGTYPE_p_Pin, interp); $1 = tclListSetPin($input, interp);
} }
%typemap(out) PinSet* { %typemap(out) PinSet* {