- removed set but unused variables (compile w/ -Wall -Werror)
diff --git a/src/generic/formdata.c b/src/generic/formdata.c
index 756e7a6..a72e3e6 100644
--- a/src/generic/formdata.c
+++ b/src/generic/formdata.c
@@ -272,7 +272,6 @@
Tcl_Obj *bdy = NULL;
int isLast = TCL_ERROR;
long upLoadFileSize = 0;
- long bytesWritten = 0;
long bytesSkipped = 0;
Tcl_Obj *tmpFileName = NULL;
@@ -352,7 +351,6 @@
return TCL_ERROR;
}
- bytesWritten = 0;
bytesSkipped = 0;
tmpFileName = tempFileName(interp, requestData, NULL, NULL);
@@ -365,10 +363,9 @@
return TCL_ERROR;
}
- bytesWritten =
- readAndDumpBody(interp, channel, boundary, &isLast,
- tmpFileName, upLoadFileSize,
- requestData->filePermissions, &bytesSkipped);
+ readAndDumpBody(interp, channel, boundary, &isLast,
+ tmpFileName, upLoadFileSize,
+ requestData->filePermissions, &bytesSkipped);
if (fileNameLen > 0) {
diff --git a/src/generic/interpool.c b/src/generic/interpool.c
index 8fdd480..542ea31 100644
--- a/src/generic/interpool.c
+++ b/src/generic/interpool.c
@@ -107,7 +107,6 @@
long mtime, request_rec *r)
{
- int result = 0;
LogPlugIn *logtoap = NULL;
Tcl_Obj *code = NULL;
ApFuncs *apFuncs = NULL;
@@ -134,15 +133,14 @@
#endif
/* now register here all websh modules */
- result = Tcl_Init(webInterp->interp);
- /* checkme: test result */
+ Tcl_Init(webInterp->interp);
apFuncs = Tcl_GetAssocData(conf->mainInterp, WEB_APFUNCS_ASSOC_DATA, NULL);
if (apFuncs == NULL)
return NULL;
Tcl_SetAssocData(webInterp->interp, WEB_APFUNCS_ASSOC_DATA, NULL, (ClientData *) apFuncs);
- result = Websh_Init(webInterp->interp);
+ Websh_Init(webInterp->interp);
/* also register the destrcutor, etc. functions, passing webInterp as
client data */
diff --git a/src/generic/log.c b/src/generic/log.c
index 17b9360..99450a3 100644
--- a/src/generic/log.c
+++ b/src/generic/log.c
@@ -34,7 +34,6 @@
LogPlugIn *logtochannel = NULL;
LogPlugIn *logtocmd = NULL;
LogPlugIn *logtosyslog = NULL;
- int ires = 0;
/* --------------------------------------------------------------------------
* interpreter running ?
@@ -85,7 +84,7 @@
logtochannel->destructor = destroyLogToChannel;
logtochannel->handler = logToChannel;
- ires = registerLogPlugIn(interp, "channel", logtochannel);
+ registerLogPlugIn(interp, "channel", logtochannel);
/* --------------------------------------------------------------------------
* register log handler "file"
@@ -97,7 +96,7 @@
logtofile->destructor = destroyLogToFile;
logtofile->handler = logToFile;
- ires = registerLogPlugIn(interp, "file", logtofile);
+ registerLogPlugIn(interp, "file", logtofile);
/* --------------------------------------------------------------------------
* register log handler "command"
@@ -109,7 +108,7 @@
logtocmd->destructor = destroyLogToCmd;
logtocmd->handler = logToCmd;
- ires = registerLogPlugIn(interp, "command", logtocmd);
+ registerLogPlugIn(interp, "command", logtocmd);
/* --------------------------------------------------------------------------
* register log handler "syslog"
@@ -122,7 +121,7 @@
logtosyslog->destructor = destroyLogToSyslog;
logtosyslog->handler = logToSyslog;
- ires = registerLogPlugIn(interp, "syslog", logtosyslog);
+ registerLogPlugIn(interp, "syslog", logtosyslog);
#endif
/* --------------------------------------------------------------------------
* done
diff --git a/src/generic/nca_d.c b/src/generic/nca_d.c
index 05f716c..2600033 100644
--- a/src/generic/nca_d.c
+++ b/src/generic/nca_d.c
@@ -175,7 +175,7 @@
{
Tcl_Obj *key = NULL;
- unsigned char *keyBytes = NULL;
+ //unsigned char *keyBytes = NULL;
int keyLen = -1;
char *str = NULL;
int strLen = -1;
@@ -191,7 +191,7 @@
}
WebAssertData(interp, clientData, "web::decryptd", TCL_ERROR);
key = (Tcl_Obj *) clientData;
- keyBytes = Tcl_GetByteArrayFromObj(key, &keyLen);
+ Tcl_GetByteArrayFromObj(key, &keyLen);
if (keyLen < 1) {
LOG_MSG(interp, SET_RESULT,
