diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 20:32:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 20:32:33 (GMT) |
commit | 8c60b1157a27a535111861c5a83b64d502ec1948 (patch) | |
tree | 8388b53b8610267c8b8a1755286e96878c170cd3 /generic/tclUtil.c | |
parent | 97cf6a1affd8abe431bad7a2c560b434aa953354 (diff) | |
download | tcl-8c60b1157a27a535111861c5a83b64d502ec1948.zip tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.gz tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.bz2 |
Mark more unused parameters
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index f1133e3..b4f0e79 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2479,6 +2479,7 @@ TclByteArrayMatch( { const unsigned char *stringEnd, *patternEnd; unsigned char p; + (void)flags; stringEnd = string + strLen; patternEnd = pattern + ptnLen; @@ -3263,9 +3264,7 @@ Tcl_DStringEndSublist( void Tcl_PrintDouble( - Tcl_Interp *interp, /* Interpreter whose tcl_precision variable - * used to be used to control printing. It's - * ignored now. */ + Tcl_Interp *dummy, /* Not used. */ double value, /* Value to print as string. */ char *dst) /* Where to store converted value; must have * at least TCL_DOUBLE_SPACE characters. */ @@ -3276,6 +3275,7 @@ Tcl_PrintDouble( char *digits; char *end; int *precisionPtr = (int *)Tcl_GetThreadData(&precisionKey, sizeof(int)); + (void)dummy; /* * Handle NaN. |