[AOLSERVER-COMMITS] aolserver/nsd tclloop.c, 1.2, 1.3 tclshare.c, 1.6, 1.7

[<gne...@us...>]

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) {