diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 17:31:58 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 17:31:58 (GMT) |
| commit | a9974c36d092201f528c8b8272ed47a2811e6ce7 (patch) | |
| tree | 9cd04c164d59cfbd75389fb54e025960e70a185a /generic/tclObj.c | |
| parent | cceb3ebddedc8b205dc57e284dd27a16c69beaa2 (diff) | |
| download | tcl-a9974c36d092201f528c8b8272ed47a2811e6ce7.zip tcl-a9974c36d092201f528c8b8272ed47a2811e6ce7.tar.gz tcl-a9974c36d092201f528c8b8272ed47a2811e6ce7.tar.bz2 | |
size_t -> ptrdiff_t to match Tcl 9 unsigned->signed change
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 233c677..aeaa0cd 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1721,7 +1721,7 @@ char * TclGetStringFromObj( Tcl_Obj *objPtr, /* Object whose string rep byte pointer should * be returned. */ - size_t *lengthPtr) /* If non-NULL, the location where the string + ptrdiff_t *lengthPtr) /* If non-NULL, the location where the string * rep's byte array length should * be stored. * If NULL, no length is stored. */ { @@ -4066,7 +4066,7 @@ int Tcl_GetNumber( Tcl_Interp *interp, const char *bytes, - size_t numBytes, + ptrdiff_t numBytes, void **clientDataPtr, int *typePtr) { @@ -4080,7 +4080,7 @@ Tcl_GetNumber( bytes = &tclEmptyString; numBytes = 0; } - if (numBytes == (size_t)TCL_INDEX_NONE) { + if (numBytes < 0) { numBytes = strlen(bytes); } if (numBytes > INT_MAX) { |