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;
}
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* {