diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-03-09 12:31:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-03-09 12:31:47 (GMT) |
| commit | 42e6e9b167278c19dd2d9039fc434558bfc2c7f1 (patch) | |
| tree | bbf7612ecc10930689dbca46355943bf6a82e751 /generic/tclStringObj.c | |
| parent | 085094bd8714e2c46e3f098189728bb966eb3fb0 (diff) | |
| download | tcl-42e6e9b167278c19dd2d9039fc434558bfc2c7f1.zip tcl-42e6e9b167278c19dd2d9039fc434558bfc2c7f1.tar.gz tcl-42e6e9b167278c19dd2d9039fc434558bfc2c7f1.tar.bz2 | |
More TCL_UNUSED
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 6ab2371..cb2a773 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -342,14 +342,9 @@ Tcl_DbNewStringObj( * when initializing the new object. If * negative, 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 */ @@ -4169,11 +4164,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); |