diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-18 19:42:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-18 19:42:02 (GMT) |
| commit | 49cfc0317e60291c8ed8e25b07d725058ec72bb2 (patch) | |
| tree | d4f1dd446e58fa1b7172feac092b80cf3ce6e801 /generic/tclBinary.c | |
| parent | db8e59ed80acf95cad3f0d0da9e36f46ae2de2d7 (diff) | |
| download | tcl-49cfc0317e60291c8ed8e25b07d725058ec72bb2.zip tcl-49cfc0317e60291c8ed8e25b07d725058ec72bb2.tar.gz tcl-49cfc0317e60291c8ed8e25b07d725058ec72bb2.tar.bz2 | |
Adapt TIP's #494/#481/#537/#544/#568/#616/#623/#627/#630 to TIP #660 changes
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index b956bd0..710ed0b 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -457,7 +457,7 @@ unsigned char * Tcl_GetBytesFromObj( Tcl_Interp *interp, /* For error reporting */ Tcl_Obj *objPtr, /* Value to extract from */ - size_t *numBytesPtr) /* If non-NULL, write the number of bytes + ptrdiff_t *numBytesPtr) /* If non-NULL, write the number of bytes * in the array here */ { ByteArray *baPtr; @@ -539,7 +539,7 @@ Tcl_GetByteArrayFromObj( unsigned char * TclGetByteArrayFromObj( Tcl_Obj *objPtr, /* The ByteArray object. */ - size_t *numBytesPtr) /* If non-NULL, write the number of bytes + ptrdiff_t *numBytesPtr) /* If non-NULL, write the number of bytes * in the array here */ { ByteArray *baPtr; @@ -557,7 +557,7 @@ TclGetByteArrayFromObj( if (numBytesPtr != NULL) { /* Make sure we return a value between 0 and UINT_MAX-1, or (size_t)-1 */ - *numBytesPtr = ((size_t)(unsigned int)(baPtr->used + 1)) - 1; + *numBytesPtr = ((ptrdiff_t)(unsigned int)(baPtr->used + 1)) - 1; } return baPtr->bytes; } |