summaryrefslogtreecommitdiffstats
path: root/Python/formatter_unicode.c
Commit message (Expand)AuthorAgeFilesLines
* Reverted 16efa8d27e4c after discussion with Eric.Vinay Sajip2014-04-151-7/+0
* Closed issue #8931: Make alternate formatting for 'c' raise an exception. Pat...Eric V. Smith2014-04-151-0/+7
* Issue #12546: Allow \x00 as a fill character for builtin type __format__ meth...Eric V. Smith2014-04-141-11/+8
* Add _PyUnicodeWriter_WriteASCIIString() functionVictor Stinner2013-11-191-9/+9
* Issue #18783: Removed existing mentions of Python long type in docstrings,Serhiy Storchaka2013-08-271-2/+1
|\
| * Issue #18783: Removed existing mentions of Python long type in docstrings,Serhiy Storchaka2013-08-271-2/+1
* | Issue #9566: Fix a compiler warning on Windows x64Victor Stinner2013-06-241-4/+2
* | (Merge 3.3) Issue #18137: Detect integer overflow on precision inVictor Stinner2013-06-231-2/+14
|\ \ | |/
| * Issue #18137: Detect integer overflow on precision in float.__format__() andVictor Stinner2013-06-231-2/+14
* | Fix a compilater warning on Windows 64-bitVictor Stinner2013-05-161-1/+1
* | Fix a compiler warning: use unsigned int type instead of enum PyUnicode_Kind toVictor Stinner2013-05-071-1/+1
* | Close #16757: Avoid calling the expensive _PyUnicode_FindMaxChar() functionVictor Stinner2013-04-031-1/+5
* | Issue #17173: Remove uses of locale-dependent C functions (isalpha() etc.) in...Antoine Pitrou2013-02-091-1/+1
|\ \ | |/
| * Issue #17173: Remove uses of locale-dependent C functions (isalpha() etc.) in...Antoine Pitrou2013-02-091-1/+1
| |\
* | | Issue #15609: Optimize str%args for integer argumentVictor Stinner2012-10-011-1/+2
|/ /
* | After the jump in line 1051 unicode_tmp is NULL. Found by Coverity.Stefan Krah2012-09-061-1/+1
* | Remove now unused IntOrLongToString typeVictor Stinner2012-08-091-3/+0
* | Comment out a dead increment.Brett Cannon2012-06-251-1/+1
* | format_obj: make it staticdoko@ubuntu.com2012-06-211-1/+1
* | Optimize _PyUnicode_FastCopyCharacters() when maxchar(from) > maxchar(to)Victor Stinner2012-06-161-2/+4
* | Issue #14744: Use the new _PyUnicodeWriter internal API to speed up str%args ...Victor Stinner2012-05-291-194/+218
* | Close #14648: Compute correctly maxchar in str.format() for substrinVictor Stinner2012-04-231-4/+2
* | inherit maxchar of field value where needed (closes #14648)Benjamin Peterson2012-04-231-0/+3
* | Issue #13706: Fix format(float, "n") for locale with non-ASCII decimal point ...Victor Stinner2012-02-241-9/+6
* | Issue #13706: Fix format(int, "n") for locale with non-ASCII thousands separatorVictor Stinner2012-02-231-53/+89
* | Issue #13706: Add assertions to detect bugs earlierVictor Stinner2012-01-311-3/+9
* | Silence last compilation warning.Amaury Forgeot d'Arc2012-01-231-1/+1
* | Fix compilation warnings (seen on win32 buildbot)Amaury Forgeot d'Arc2012-01-231-4/+4
* | Issue #13706: Support non-ASCII fill charactersVictor Stinner2012-01-211-15/+19
* | Improve exception text. Closes issue 13811.Eric V. Smith2012-01-201-2/+2
* | remove some usage of Py_UNICODE_TOUPPER/LOWERBenjamin Peterson2012-01-121-11/+16
* | Add a new PyUnicode_Fill() functionVictor Stinner2012-01-031-15/+6
* | Issue #9530: Fix undefined behaviour due to signed overflow in Python/formatt...Mark Dickinson2011-12-011-9/+7
* | Fix misuse of PyUnicode_GET_SIZE, use PyUnicode_GET_LENGTH insteadVictor Stinner2011-10-111-1/+1
* | Change PyUnicode_KIND to 1,2,4. Drop _KIND_SIZE and _CHARACTER_SIZE.Martin v. Löwis2011-10-071-2/+2
* | Don't check for the maximum character when copying from unicodeobject.cVictor Stinner2011-10-051-9/+7
* | Add asciilib: similar to ucs1, ucs2 and ucs4 library, but specialized to ASCIIVictor Stinner2011-10-051-2/+2
* | fill_number() and format_string_internal() check for PyUnicode_CopyCharacters...Victor Stinner2011-09-281-3/+8
* | fill_number() ensures that the 'digits' string is readyVictor Stinner2011-09-281-1/+4
* | fill_char() can now propagate an errorVictor Stinner2011-09-281-25/+47
* | Implement PEP 393.Martin v. Löwis2011-09-281-6/+1439
|/
* Remove the uses of WITHOUT_COMPLEX introduced in r75471Mark Dickinson2009-10-181-2/+0
* Merged revisions 75440 via svnmerge fromMark Dickinson2009-10-151-0/+2
* Issue #1588: Add complex.__format__.Eric Smith2009-04-301-3/+4
* Refactor and clean up str.format() code (and helpers) in advance of optimizat...Eric Smith2008-05-301-5/+5
* Implementation of PEP 3101, Advanced String Formatting.Eric Smith2007-08-251-0/+13
n> Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.
summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/regc_nfa.c8
-rw-r--r--generic/tcl.decls6
-rw-r--r--generic/tclAssembly.c4
-rw-r--r--generic/tclBasic.c64
-rw-r--r--generic/tclBinary.c10
-rw-r--r--generic/tclCkalloc.c6
-rw-r--r--generic/tclClock.c26
-rw-r--r--generic/tclCmdAH.c81
-rw-r--r--generic/tclCmdIL.c82
-rw-r--r--generic/tclCmdMZ.c94
-rw-r--r--generic/tclCompExpr.c2
-rw-r--r--generic/tclCompile.c6
-rw-r--r--generic/tclDecls.h14
-rw-r--r--generic/tclDictObj.c4
-rw-r--r--generic/tclDisassemble.c2
-rw-r--r--generic/tclEncoding.c6
-rw-r--r--generic/tclEnsemble.c4
-rw-r--r--generic/tclEvent.c6
-rw-r--r--generic/tclExecute.c2
-rw-r--r--generic/tclFCmd.c14
-rw-r--r--generic/tclFileName.c2
-rw-r--r--generic/tclIO.c2
-rw-r--r--generic/tclIOCmd.c36
-rw-r--r--generic/tclIcu.c14
-rw-r--r--generic/tclIndexObj.c6
-rw-r--r--generic/tclInterp.c14
-rw-r--r--generic/tclListObj.c8
-rw-r--r--generic/tclListTypes.c4
-rw-r--r--generic/tclLoad.c4
-rw-r--r--generic/tclMutexTest.c2
-rw-r--r--generic/tclNamesp.c44
-rw-r--r--generic/tclParse.c2
-rw-r--r--generic/tclPathObj.c2
-rw-r--r--generic/tclPkg.c10
-rw-r--r--generic/tclProc.c12
-rw-r--r--generic/tclProcess.c8
-rw-r--r--generic/tclScan.c2
-rw-r--r--generic/tclStringObj.c4
-rw-r--r--generic/tclTest.c171
-rw-r--r--generic/tclTestABSList.c8
-rw-r--r--generic/tclTestObj.c18
-rw-r--r--generic/tclTestProcBodyObj.c4
-rw-r--r--generic/tclThreadTest.c2
-rw-r--r--generic/tclTimer.c2
-rw-r--r--generic/tclTrace.c2
-rw-r--r--generic/tclVar.c34
-rw-r--r--generic/tclZipfs.c28
47 files changed, 443 insertions, 443 deletions
diff --git a/generic/regc_nfa.c b/generic/regc_nfa.c
index f29b6bb..2700e90 100644
--- a/generic/regc_nfa.c
+++ b/generic/regc_nfa.c
@@ -633,8 +633,8 @@ sortins_cmp(
const void *a,
const void *b)
{
- const struct arc *aa = *((const struct arc * const *) a);
- const struct arc *bb = *((const struct arc * const *) b);
+ const struct arc *aa = *((const struct arc *const *) a);
+ const struct arc *bb = *((const struct arc *const *) b);
/* we check the fields in the order they are most likely to be different */
if (aa->from->no < bb->from->no) {
@@ -709,8 +709,8 @@ sortouts_cmp(
const void *a,
const void *b)
{
- const struct arc *aa = *((const struct arc * const *) a);
- const struct arc *bb = *((const struct arc * const *) b);
+ const struct arc *aa = *((const struct arc *const *) a);
+ const struct arc *bb = *((const struct arc *const *) b);
/* we check the fields in the order they are most likely to be different */
if (aa->to->no < bb->to->no) {
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 2471448..30e5b48 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2026,11 +2026,11 @@ declare 611 {
Tcl_Size buffersize, Tcl_Obj *gzipHeaderDictObj)
}
declare 612 {
- unsigned int Tcl_ZlibCRC32(unsigned int crc, const unsigned char *buf,
+ unsigned Tcl_ZlibCRC32(unsigned crc, const unsigned char *buf,
Tcl_Size len)
}
declare 613 {
- unsigned int Tcl_ZlibAdler32(unsigned int adler, const unsigned char *buf,
+ unsigned Tcl_ZlibAdler32(unsigned adler, const unsigned char *buf,
Tcl_Size len)
}
declare 614 {
@@ -2108,7 +2108,7 @@ declare 630 {
# TIP #456/#468
declare 631 {
Tcl_Channel Tcl_OpenTcpServerEx(Tcl_Interp *interp, const char *service,
- const char *host, unsigned int flags, int backlog,
+ const char *host, unsigned flags, int backlog,
Tcl_TcpAcceptProc *acceptProc, void *callbackData)
}
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index ce4fa27..1d86b95 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -734,7 +734,7 @@ int
Tcl_AssembleObjCmd(
void *clientData, /* clientData */
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
/*
@@ -750,7 +750,7 @@ int
TclNRAssembleObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
ByteCode *codePtr; /* Pointer to the bytecode to execute */
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 63cfa21..98d1de8 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -631,7 +631,7 @@ BuildInfoObjCmd2(
const char *arg, *p, *q;
Tcl_Size len;
int idx;
- static const char *identifiers[] = {
+ static const char *const identifiers[] = {
"commit", "compiler", "patchlevel", "version", NULL
};
enum Identifiers {
@@ -2734,7 +2734,7 @@ CmdWrapperProc(
void *clientData,
Tcl_Interp *interp,
Tcl_Size objc,
- Tcl_Obj * const *objv)
+ Tcl_Obj *const *objv)
{
CmdWrapperInfo *info = (CmdWrapperInfo *) clientData;
if (objc > INT_MAX) {
@@ -3017,7 +3017,7 @@ int
InvokeStringCommand(
void *clientData, /* Points to command's Command structure. */
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Command *cmdPtr = (Command *)clientData;
@@ -3312,7 +3312,7 @@ static int
InvokeObj2Command(
void *clientData, /* Points to command's Command structure. */
Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
+ int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
int result;
@@ -7008,7 +7008,7 @@ ExprCeilFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter list. */
{
int code;
@@ -7048,7 +7048,7 @@ ExprFloorFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter list. */
{
int code;
@@ -7087,7 +7087,7 @@ static int
ExprIsqrtFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter list. */
{
void *ptr;
@@ -7194,7 +7194,7 @@ ExprSqrtFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter list. */
{
int code;
@@ -7248,7 +7248,7 @@ ExprUnaryFunc(
* double result. */
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
int code;
@@ -7312,7 +7312,7 @@ ExprBinaryFunc(
* double result. */
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Parameter vector. */
{
int code;
@@ -7362,7 +7362,7 @@ ExprAbsFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Parameter vector. */
{
void *ptr;
@@ -7471,7 +7471,7 @@ ExprBoolFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
int value;
@@ -7492,7 +7492,7 @@ ExprDoubleFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
double dResult;
@@ -7519,7 +7519,7 @@ ExprIntFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
double d;
@@ -7575,7 +7575,7 @@ ExprWideFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
Tcl_WideInt wResult;
@@ -7596,7 +7596,7 @@ ExprMaxMinFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv, /* Actual parameter vector. */
int op) /* Comparison direction */
{
@@ -7637,7 +7637,7 @@ ExprMaxFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
return ExprMaxMinFunc(NULL, interp, objc, objv, MP_GT);
@@ -7648,7 +7648,7 @@ ExprMinFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
return ExprMaxMinFunc(NULL, interp, objc, objv, MP_LT);
@@ -7659,7 +7659,7 @@ ExprRandFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
Interp *iPtr = (Interp *) interp;
@@ -7752,7 +7752,7 @@ ExprRoundFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Parameter vector. */
{
double d;
@@ -7831,7 +7831,7 @@ ExprSrandFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count. */
+ Tcl_Size objc, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Parameter vector. */
{
Interp *iPtr = (Interp *) interp;
@@ -8079,7 +8079,7 @@ ExprIsFiniteFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
return DoubleObjIsClass(interp, objc, objv, FP_INFINITE, 0);
@@ -8090,7 +8090,7 @@ ExprIsInfinityFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
return DoubleObjIsClass(interp, objc, objv, FP_INFINITE, 1);
@@ -8101,7 +8101,7 @@ ExprIsNaNFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
return DoubleObjIsClass(interp, objc, objv, FP_NAN, 1);
@@ -8112,7 +8112,7 @@ ExprIsNormalFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
return DoubleObjIsClass(interp, objc, objv, FP_NORMAL, 1);
@@ -8123,7 +8123,7 @@ ExprIsSubnormalFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
return DoubleObjIsClass(interp, objc, objv, FP_SUBNORMAL, 1);
@@ -8134,7 +8134,7 @@ ExprIsUnorderedFunc(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
int dCls, dCls2;
@@ -8159,7 +8159,7 @@ FloatClassifyObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* The interpreter in which to execute the
* function. */
- Tcl_Size objc, /* Actual parameter count */
+ Tcl_Size objc, /* Actual parameter count */
Tcl_Obj *const *objv) /* Actual parameter list */
{
double d;
@@ -8227,7 +8227,7 @@ static void
MathFuncWrongNumArgs(
Tcl_Interp *interp, /* Tcl interpreter */
Tcl_Size expected, /* Formal parameter count. */
- Tcl_Size found, /* Actual parameter count. */
+ Tcl_Size found, /* Actual parameter count. */
Tcl_Obj *const *objv) /* Actual parameter vector. */
{
const char *name = TclGetString(objv[0]);
@@ -8267,7 +8267,7 @@ static int
DTraceObjCmd(
TCL_UNUSED(void *),
TCL_UNUSED(Tcl_Interp *),
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (TCL_DTRACE_TCL_PROBE_ENABLED()) {
@@ -9544,7 +9544,7 @@ int
TclNRInterpCoroutine(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
CoroutineData *corPtr = (CoroutineData *)clientData;
@@ -9608,7 +9608,7 @@ int
TclNRCoroutineObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Command *cmdPtr;
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 2b15d31..261ae9c 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -805,7 +805,7 @@ static int
BinaryFormatCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Size arg; /* Index of next argument to consume. */
@@ -1317,7 +1317,7 @@ static int
BinaryScanCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Size arg; /* Index of next argument to consume. */
@@ -2808,14 +2808,16 @@ BinaryEncodeUu(
}
*cursor++ = UueDigits[lineLen];
for (i = 0 ; i < lineLen ; i++) {
- n <<= 8;
+ /* Left shift cast to unsigned type to prevent UB on overflow */
+ n = (Tcl_Size)((size_t)n << 8);
n |= data[offset++];
for (bits += 8; bits > 6 ; bits -= 6) {
*cursor++ = UueDigits[(n >> (bits - 6)) & 0x3F];
}
}
if (bits > 0) {
- n <<= 8;
+ /* Left shift cast to unsigned type to prevent UB on overflow */
+ n = (Tcl_Size)((size_t)n << 8);
*cursor++ = UueDigits[(n >> (bits + 2)) & 0x3F];
bits = 0;
}
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c
index f7a51c8..ca465dd 100644
--- a/generic/tclCkalloc.c
+++ b/generic/tclCkalloc.c
@@ -797,7 +797,7 @@ static int
MemoryCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp,
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Obj values of arguments. */
{
const char *fileName;
@@ -806,7 +806,7 @@ MemoryCmd(
Tcl_WideInt value;
int result, option;
size_t len;
- static const char *options[] = {
+ static const char *const options[] = {
"active", "break_on_malloc", "info",
"init", "objs", "onexit",
"tag", "trace", "trace_on_at_malloc",
@@ -967,7 +967,7 @@ static int
CheckmemCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Interpreter for evaluation. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Obj values of arguments. */
{
if (objc != 2) {
diff --git a/generic/tclClock.c b/generic/tclClock.c
index 140fae8..c5e0631 100644
--- a/generic/tclClock.c
+++ b/generic/tclClock.c
@@ -965,7 +965,7 @@ static int
ClockConfigureObjCmd(
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
@@ -1400,7 +1400,7 @@ static int
ClockConvertlocaltoutcObjCmd(
void *clientData, /* Literal table */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter vector */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
@@ -1489,7 +1489,7 @@ int
ClockGetdatefieldsObjCmd(
void *clientData, /* Opaque pointer to literal pool, etc. */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter vector */
{
TclDateFields fields;
@@ -1683,7 +1683,7 @@ static int
ClockGetjuliandayfromerayearmonthdayObjCmd(
void *clientData, /* Opaque pointer to literal pool, etc. */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter vector */
{
TclDateFields fields;
@@ -1772,7 +1772,7 @@ static int
ClockGetjuliandayfromerayearweekdayObjCmd(
void *clientData, /* Opaque pointer to literal pool, etc. */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter vector */
{
TclDateFields fields;
@@ -1995,7 +1995,7 @@ static int
ConvertLocalToUTCUsingTable(
Tcl_Interp *interp, /* Tcl interpreter */
TclDateFields *fields, /* Time to convert, with 'seconds' filled in */
- Tcl_Size rowc, /* Number of points at which time changes */
+ Tcl_Size rowc, /* Number of points at which time changes */
Tcl_Obj *const rowv[], /* Points at which time changes */
Tcl_WideInt *rangesVal) /* Return bounds for time period */
{
@@ -3126,7 +3126,7 @@ int
ClockClicksObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter values */
{
static const char *const clicksSwitches[] = {
@@ -3198,7 +3198,7 @@ int
ClockMillisecondsObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter values */
{
Tcl_Time now;
@@ -3237,7 +3237,7 @@ int
ClockMicrosecondsObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter values */
{
if (objc != 1) {
@@ -3533,7 +3533,7 @@ int
ClockFormatObjCmd(
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter values */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
@@ -3602,7 +3602,7 @@ int
ClockScanObjCmd(
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter values */
{
ClockClientData *dataPtr = (ClockClientData *)clientData;
@@ -4454,7 +4454,7 @@ int
ClockAddObjCmd(
void *clientData, /* Client data containing literal pool */
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const objv[]) /* Parameter values */
{
static const char *syntax = "clock add clockval|now ?number units?..."
@@ -4637,7 +4637,7 @@ int
ClockSecondsObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Tcl interpreter */
- Tcl_Size objc, /* Parameter count */
+ Tcl_Size objc, /* Parameter count */
Tcl_Obj *const *objv) /* Parameter values */
{
Tcl_Time now;
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index a4b268f..77a296c 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -177,7 +177,7 @@ int
Tcl_BreakObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc != 1) {
@@ -208,7 +208,7 @@ int
Tcl_CatchObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRCatchObjCmd, clientData, objc, objv);
@@ -218,7 +218,7 @@ int
TclNRCatchObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *varNamePtr = NULL;
@@ -313,7 +313,7 @@ int
Tcl_CdObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *dir;
@@ -376,7 +376,7 @@ int
Tcl_ConcatObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc >= 2) {
@@ -410,7 +410,7 @@ int
Tcl_ContinueObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc != 1) {
@@ -445,14 +445,13 @@ Tcl_ContinueObjCmd(
*/
static int
EncodingConvertParseOptions(
- Tcl_Interp *interp, /* For error messages. May be NULL */
- Tcl_Size objc, /* Number of arguments */
- Tcl_Obj *const objv[], /* Argument objects as passed to command. */
- Tcl_Encoding *encPtr, /* Where to store the encoding */
- Tcl_Obj **dataObjPtr, /* Where to store ptr to Tcl_Obj containing data */
- int *profilePtr, /* Bit mask of encoding option profile */
- Tcl_Obj **failVarPtr /* Where to store -failindex option value */
-)
+ Tcl_Interp *interp, /* For error messages. May be NULL */
+ Tcl_Size objc, /* Number of arguments */
+ Tcl_Obj *const objv[], /* Argument objects as passed to command. */
+ Tcl_Encoding *encPtr, /* Where to store the encoding */
+ Tcl_Obj **dataObjPtr, /* Where to store ptr to Tcl_Obj containing data */
+ int *profilePtr, /* Bit mask of encoding option profile */
+ Tcl_Obj **failVarPtr) /* Where to store -failindex option value */
{
static const char *const options[] = {"-profile", "-failindex", NULL};
enum convertfromOptions { PROFILE, FAILINDEX } optIndex;
@@ -541,7 +540,7 @@ int
EncodingConvertfromObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *data; /* Byte array to convert */
@@ -639,7 +638,7 @@ int
EncodingConverttoObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *data; /* String to convert */
@@ -707,7 +706,7 @@ EncodingConverttoObjCmd(
result = TCL_OK;
-done:
+ done:
Tcl_DStringFree(&ds);
if (encoding) {
Tcl_FreeEncoding(encoding);
@@ -735,7 +734,7 @@ int
EncodingDirsObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *dirListObj;
@@ -779,8 +778,8 @@ int
EncodingNamesObjCmd(
TCL_UNUSED(void *),
Tcl_Interp* interp, /* Tcl interpreter */
- Tcl_Size objc, /* Number of command line args */
- Tcl_Obj* const objv[]) /* Vector of command line args */
+ Tcl_Size objc, /* Number of command line args */
+ Tcl_Obj *const objv[]) /* Vector of command line args */
{
if (objc > 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
@@ -806,9 +805,9 @@ EncodingNamesObjCmd(
int
EncodingProfilesObjCmd(
TCL_UNUSED(void *),
- Tcl_Interp* interp, /* Tcl interpreter */
- Tcl_Size objc, /* Number of command line args */
- Tcl_Obj* const objv[]) /* Vector of command line args */
+ Tcl_Interp* interp, /* Tcl interpreter */
+ Tcl_Size objc, /* Number of command line args */
+ Tcl_Obj *const objv[]) /* Vector of command line args */
{
if (objc > 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
@@ -837,9 +836,9 @@ EncodingProfilesObjCmd(
int
EncodingSystemObjCmd(
TCL_UNUSED(void *),
- Tcl_Interp* interp, /* Tcl interpreter */
- Tcl_Size objc, /* Number of command line args */
- Tcl_Obj* const objv[]) /* Vector of command line args */
+ Tcl_Interp* interp, /* Tcl interpreter */
+ Tcl_Size objc, /* Number of command line args */
+ Tcl_Obj *const objv[]) /* Vector of command line args */
{
if (objc > 2) {
Tcl_WrongNumArgs(interp, 1, objv, "?encoding?");
@@ -870,9 +869,9 @@ EncodingSystemObjCmd(
int
EncodingUserObjCmd(
TCL_UNUSED(void *),
- Tcl_Interp* interp, /* Tcl interpreter */
- Tcl_Size objc, /* Number of command line args */
- Tcl_Obj* const objv[]) /* Vector of command line args */
+ Tcl_Interp* interp, /* Tcl interpreter */
+ Tcl_Size objc, /* Number of command line args */
+ Tcl_Obj *const objv[]) /* Vector of command line args */
{
if (objc > 1) {
Tcl_WrongNumArgs(interp, 1, objv, "");
@@ -905,7 +904,7 @@ int
Tcl_ErrorObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *options, *optName;
@@ -967,7 +966,7 @@ int
Tcl_EvalObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNREvalObjCmd, clientData, objc, objv);
@@ -977,7 +976,7 @@ int
TclNREvalObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *objPtr;
@@ -1036,7 +1035,7 @@ int
Tcl_ExitObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_WideInt value;
@@ -1083,7 +1082,7 @@ int
Tcl_ExprObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRExprObjCmd, clientData, objc, objv);
@@ -1093,7 +1092,7 @@ int
TclNRExprObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *resultPtr, *objPtr;
@@ -2489,7 +2488,7 @@ int
Tcl_ForObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRForObjCmd, clientData, objc, objv);
@@ -2499,7 +2498,7 @@ int
TclNRForObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -2683,7 +2682,7 @@ int
Tcl_ForeachObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRForeachCmd, clientData, objc, objv);
@@ -2703,7 +2702,7 @@ int
Tcl_LmapObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRLmapCmd, clientData, objc, objv);
@@ -2725,7 +2724,7 @@ EachloopCmd(
* evaluation. */
int collect, /* Select collecting or accumulating mode
* (TCL_EACH_*) */
- Tcl_Size objc, /* The arguments being passed in... */
+ Tcl_Size objc, /* The arguments being passed in... */
Tcl_Obj *const objv[])
{
Tcl_Size i, numLists = (objc-2) / 2;
@@ -3043,7 +3042,7 @@ int
Tcl_FormatObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *resultPtr; /* Where result is stored finally. */
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 4444a15..ff9d438 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -205,7 +205,7 @@ int
Tcl_IfObjCmd(
void *clientData,
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
return Tcl_NRCallObjProc2(interp, TclNRIfObjCmd, clientData, objc, objv);
@@ -215,7 +215,7 @@ int
TclNRIfObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *boolObj;
@@ -389,7 +389,7 @@ int
Tcl_IncrObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *newValuePtr, *incrPtr;
@@ -446,7 +446,7 @@ static int
InfoArgsCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -509,7 +509,7 @@ static int
InfoBodyCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -570,7 +570,7 @@ static int
InfoCmdCountCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -612,7 +612,7 @@ static int
InfoCommandsCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *cmdName, *pattern;
@@ -889,7 +889,7 @@ static int
InfoCompleteCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc != 2) {
@@ -926,7 +926,7 @@ static int
InfoDefaultCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -1009,7 +1009,7 @@ static int
InfoErrorStackCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Interp *target;
@@ -1058,7 +1058,7 @@ int
TclInfoExistsCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *varName;
@@ -1103,7 +1103,7 @@ static int
InfoFrameCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -1448,7 +1448,7 @@ static int
InfoFunctionsCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *script;
@@ -1513,7 +1513,7 @@ static int
InfoHostnameCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *name;
@@ -1559,7 +1559,7 @@ static int
InfoLevelCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -1633,7 +1633,7 @@ static int
InfoLibraryCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *libDirName;
@@ -1680,7 +1680,7 @@ static int
InfoLoadedCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *interpName, *prefix;
@@ -1728,7 +1728,7 @@ static int
InfoNameOfExecutableCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc != 1) {
@@ -1764,7 +1764,7 @@ static int
InfoPatchLevelCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *patchlevel;
@@ -1811,7 +1811,7 @@ static int
InfoProcsCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
const char *cmdName, *pattern;
@@ -1952,7 +1952,7 @@ static int
InfoScriptCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
@@ -2000,7 +2000,7 @@ static int
InfoSharedlibCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
if (objc != 1) {
@@ -2038,7 +2038,7 @@ static int
InfoTclVersionCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *version;
@@ -2081,7 +2081,7 @@ static int
InfoCmdTypeCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Command command;
@@ -2132,7 +2132,7 @@ int
Tcl_JoinObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* The argument objects. */
{
Tcl_Size length, listLen;
@@ -2234,7 +2234,7 @@ int
Tcl_LassignObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *listPtr;
@@ -2338,7 +2338,7 @@ int
Tcl_LindexObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *elemPtr; /* Pointer to the element being extracted. */
@@ -2396,7 +2396,7 @@ int
Tcl_LinsertObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *listPtr;
@@ -2489,7 +2489,7 @@ int
Tcl_ListObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* The argument objects. */
{
/*
@@ -2524,7 +2524,7 @@ int
Tcl_LlengthObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Size listLen;
@@ -2572,7 +2572,7 @@ int
Tcl_LpopObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Size listLen;
@@ -2690,7 +2690,7 @@ int
Tcl_LrangeObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
int result;
@@ -2761,7 +2761,7 @@ int
Tcl_LremoveObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Size i, idxc, prevIdx, first, num;
@@ -2892,7 +2892,7 @@ int
Tcl_LrepeatObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* The argument objects. */
{
Tcl_Size repeatCount;
@@ -2938,7 +2938,7 @@ int
Tcl_LreplaceObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tcl_Obj *listPtr;
@@ -3040,7 +3040,7 @@ int
Tcl_LreverseObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
if (objc != 2) {
@@ -3077,7 +3077,7 @@ int
Tcl_LsearchObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
const char *bytes, *patternBytes;
@@ -3956,7 +3956,7 @@ int
Tcl_LseqObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* The argument objects. */
{
Tcl_Obj *elementCount = NULL;
@@ -4239,7 +4239,7 @@ int
Tcl_LsetObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
Tcl_Obj *listPtr; /* Pointer to the list being altered. */
@@ -4332,7 +4332,7 @@ int
Tcl_LsortObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
int indices, nocase = 0;
@@ -4851,7 +4851,7 @@ int
Tcl_LeditObjCmd(
TCL_UNUSED(void *),
Tcl_Interp *interp, /* Current interpreter. */
- Tcl_Size objc, /* Number of arguments. */
+ Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
Tcl_Obj *listPtr; /* Pointer to the list being altered. */
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index a5c9485..4162089 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c