diff options
Diffstat (limited to 'Lib/tcl/tclstrings.swg')
-rw-r--r-- | Lib/tcl/tclstrings.swg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lib/tcl/tclstrings.swg b/Lib/tcl/tclstrings.swg index 540d6270e..738c81362 100644 --- a/Lib/tcl/tclstrings.swg +++ b/Lib/tcl/tclstrings.swg @@ -6,7 +6,7 @@ SWIGINTERN int SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char** cptr, size_t* psize, int *alloc) { - int len = 0; + Tcl_Size len = 0; char *cstr = Tcl_GetStringFromObj(obj, &len); if (cstr) { if (cptr) *cptr = cstr; @@ -24,7 +24,7 @@ SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char** cptr, size_t* psize, int *alloc) SWIGINTERNINLINE Tcl_Obj * SWIG_FromCharPtrAndSize(const char* carray, size_t size) { - return (size < INT_MAX) ? Tcl_NewStringObj(carray, %numeric_cast(size,int)) : NULL; + return (size < TCL_SIZE_MAX) ? Tcl_NewStringObj(carray, %numeric_cast(size,Tcl_Size)) : NULL; } } |