diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 17:05:07 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 17:05:07 (GMT) |
| commit | e645e12652b53c5aa9b86783f6b7b9d3db3be9ea (patch) | |
| tree | 79e088bf7c27a97bfbb26c31686e6214d98003c5 /generic | |
| parent | c899e7770147960aafc497624551c39fff43471c (diff) | |
| download | tcl-e645e12652b53c5aa9b86783f6b7b9d3db3be9ea.zip tcl-e645e12652b53c5aa9b86783f6b7b9d3db3be9ea.tar.gz tcl-e645e12652b53c5aa9b86783f6b7b9d3db3be9ea.tar.bz2 | |
Update manpages for TIP 660. Also one size_t -> Tcl_Size change in public API
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.decls | 2 | ||||
| -rw-r--r-- | generic/tclDecls.h | 4 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 079a8ec..0b3daa3 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -2601,7 +2601,7 @@ declare 680 { void **clientDataPtr, int *typePtr) } declare 681 { - int Tcl_GetNumber(Tcl_Interp *interp, const char *bytes, size_t numBytes, + int Tcl_GetNumber(Tcl_Interp *interp, const char *bytes, Tcl_Size numBytes, void **clientDataPtr, int *typePtr) } diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 502dc76..89ff26c 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1849,7 +1849,7 @@ EXTERN int Tcl_GetNumberFromObj(Tcl_Interp *interp, int *typePtr); /* 681 */ EXTERN int Tcl_GetNumber(Tcl_Interp *interp, const char *bytes, - size_t numBytes, void **clientDataPtr, + Tcl_Size numBytes, void **clientDataPtr, int *typePtr); /* 682 */ EXTERN int Tcl_RemoveChannelMode(Tcl_Interp *interp, @@ -2559,7 +2559,7 @@ typedef struct TclStubs { Tcl_Command (*tcl_NRCreateCommand2) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc2 *proc, Tcl_ObjCmdProc2 *nreProc2, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 678 */ int (*tcl_NRCallObjProc2) (Tcl_Interp *interp, Tcl_ObjCmdProc2 *objProc2, void *clientData, ptrdiff_t objc, Tcl_Obj *const objv[]); /* 679 */ int (*tcl_GetNumberFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, void **clientDataPtr, int *typePtr); /* 680 */ - int (*tcl_GetNumber) (Tcl_Interp *interp, const char *bytes, size_t numBytes, void **clientDataPtr, int *typePtr); /* 681 */ + int (*tcl_GetNumber) (Tcl_Interp *interp, const char *bytes, Tcl_Size numBytes, void **clientDataPtr, int *typePtr); /* 681 */ int (*tcl_RemoveChannelMode) (Tcl_Interp *interp, Tcl_Channel chan, int mode); /* 682 */ Tcl_Size (*tcl_GetEncodingNulLength) (Tcl_Encoding encoding); /* 683 */ int (*tcl_GetWideUIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideUInt *uwidePtr); /* 684 */ diff --git a/generic/tclObj.c b/generic/tclObj.c index 6a2d7d7..38953d8 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -3646,7 +3646,7 @@ int Tcl_GetNumber( Tcl_Interp *interp, const char *bytes, - size_t numBytes, + Tcl_Size numBytes, void **clientDataPtr, int *typePtr) { @@ -3660,7 +3660,7 @@ Tcl_GetNumber( bytes = &tclEmptyString; numBytes = 0; } - if (numBytes == (size_t)TCL_INDEX_NONE) { + if (numBytes < 0) { numBytes = strlen(bytes); } if (numBytes > INT_MAX) { |