Update of /cvsroot/aolserver/aolserver/nsd
In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv8778/nsd
Modified Files:
tclloop.c tclshare.c
Log Message:
remove direct access to interp->result, initializing potentially uninitialized variables
Index: tclloop.c
===================================================================
RCS file: /cvsroot/aolserver/aolserver/nsd/tclloop.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tclloop.c 2 Jun 2006 18:51:49 -0000 1.2
--- tclloop.c 20 Jun 2008 08:06:32 -0000 1.3
***************
*** 854,858 ****
Ns_MutexLock(&servPtr->tcl.llock);
if (dataPtr->evalPtr == NULL) {
! Ns_Log(Error, "loopctl: dropped result: %s", interp->result);
} else {
str = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len);
--- 854,858 ----
Ns_MutexLock(&servPtr->tcl.llock);
if (dataPtr->evalPtr == NULL) {
! Ns_Log(Error, "loopctl: dropped result: %s", Tcl_GetStringResult(interp));
} else {
str = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &len);
Index: tclshare.c
===================================================================
RCS file: /cvsroot/aolserver/aolserver/nsd/tclshare.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** tclshare.c 1 Aug 2005 20:29:58 -0000 1.6
--- tclshare.c 20 Jun 2008 08:06:32 -0000 1.7
***************
*** 224,228 ****
}
! if (strcmp(interp->result, "1") == 0) {
/*
* Get existing value in variable being shared.
--- 224,228 ----
}
! if (strcmp(Tcl_GetStringResult(interp), "1") == 0) {
/*
* Get existing value in variable being shared.
***************
*** 247,251 ****
int x;
Tcl_InitHashTable(&valuePtr->array, TCL_STRING_KEYS);
! if (Tcl_SplitList(interp, interp->result, &argc,
(CONST char***)&argv) == TCL_OK) {
for (x = 0; x < argc; x += 2) {
--- 247,251 ----
int x;
Tcl_InitHashTable(&valuePtr->array, TCL_STRING_KEYS);
! if (Tcl_SplitList(interp, Tcl_GetStringResult(interp), &argc,
(CONST char***)&argv) == TCL_OK) {
for (x = 0; x < argc; x += 2) {
|
