diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 13:08:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 13:08:33 (GMT) |
| commit | 254b4fa35fd51a8b78906d5d481f4e1c3901f8b2 (patch) | |
| tree | 97669e54172fba0aeb8139e4bcde7e1a8a402826 /generic/tclStringObj.c | |
| parent | 24cfa12d40215a41ab6507a92a20d8600e320d94 (diff) | |
| parent | 42e6e9b167278c19dd2d9039fc434558bfc2c7f1 (diff) | |
| download | tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.zip tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.tar.gz tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index da391dc..f73f4f4 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -332,14 +332,9 @@ Tcl_DbNewStringObj( size_t length, /* The number of bytes to copy from "bytes" * when initializing the new object. If -1, * use bytes up to the first NUL byte. */ - const char *file, /* The name of the source file calling this - * function; used for debugging. */ - int line) /* Line number in the source file; used for - * debugging. */ + TCL_UNUSED(const char *) /*file*/, + TCL_UNUSED(int) /*line*/) { - (void)file; - (void)line; - return Tcl_NewStringObj(bytes, length); } #endif /* TCL_MEM_DEBUG */ @@ -4059,11 +4054,9 @@ DupStringInternalRep( static int SetStringFromAny( - Tcl_Interp *dummy, /* Not used. */ + TCL_UNUSED(Tcl_Interp *), Tcl_Obj *objPtr) /* The object to convert. */ { - (void)dummy; - if (!TclHasIntRep(objPtr, &tclStringType)) { String *stringPtr = stringAlloc(0); |