diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-05 15:14:29 (GMT) |
commit | 96c82a32e19afd4581f3aa21da39c8c6aa90bd7c (patch) | |
tree | 31455945857d2de92c86342b6a07d812a83f4350 /win/tclWinFCmd.c | |
parent | 2d7fb3bc20951567f5cd26584fb146ea5c271cc2 (diff) | |
parent | 26c1cd495a1ba8397db198e13aafe1a29287e6d0 (diff) | |
download | tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.zip tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.tar.gz tcl-96c82a32e19afd4581f3aa21da39c8c6aa90bd7c.tar.bz2 |
Mark more function paramaters as unused. Now Tcl compiles fully (on UNIX and Windows) without -Wunused-parameters warnings
Diffstat (limited to 'win/tclWinFCmd.c')
-rw-r--r-- | win/tclWinFCmd.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index b962889..1df929a 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -1432,6 +1432,8 @@ TraversalDelete( Tcl_DString *errorPtr) /* If non-NULL, initialized DString filled * with UTF-8 name of file causing error. */ { + (void)dstPtr; + switch (type) { case DOTREE_F: if (TclpDeleteFile(nativeSrc) == TCL_OK) { @@ -1597,6 +1599,7 @@ ConvertFileNameFormat( { int pathc, i; Tcl_Obj *splitPath; + (void)objIndex; splitPath = Tcl_FSSplitPath(fileName, &pathc); @@ -1894,6 +1897,8 @@ CannotSetAttribute( Tcl_Obj *fileName, /* The name of the file. */ Tcl_Obj *attributePtr) /* The new value of the attribute. */ { + (void)attributePtr; + Tcl_SetObjResult(interp, Tcl_ObjPrintf( "cannot set attribute \"%s\" for file \"%s\": attribute is readonly", tclpFileAttrStrings[objIndex], Tcl_GetString(fileName))); |