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/tclStringObj.c | |
| parent | 97cf6a1affd8abe431bad7a2c560b434aa953354 (diff) | |
| download | tcl-8c60b1157a27a535111861c5a83b64d502ec1948.zip tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.gz tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.bz2 | |
Mark more unused parameters
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index c4f4f87..5bdf496 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -347,6 +347,9 @@ Tcl_DbNewStringObj( int line) /* Line number in the source file; used for * debugging. */ { + (void)file; + (void)line; + return Tcl_NewStringObj(bytes, length); } #endif /* TCL_MEM_DEBUG */ @@ -4166,9 +4169,11 @@ DupStringInternalRep( static int SetStringFromAny( - Tcl_Interp *interp, /* Used for error reporting if not NULL. */ + Tcl_Interp *dummy, /* Not used. */ Tcl_Obj *objPtr) /* The object to convert. */ { + (void)dummy; + if (!TclHasIntRep(objPtr, &tclStringType)) { String *stringPtr = stringAlloc(0); |