|
From: <gne...@us...> - 2009-01-29 12:49:54
|
Update of /cvsroot/aolserver/aolserver/nsssl In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv31644/nsssl Modified Files: ssltcl.c Log Message: Remove direct access to interp->result Index: ssltcl.c =================================================================== RCS file: /cvsroot/aolserver/aolserver/nsssl/ssltcl.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ssltcl.c 23 Apr 2001 21:06:01 -0000 1.1 --- ssltcl.c 29 Jan 2009 12:49:45 -0000 1.2 *************** *** 654,663 **** } } - if (*p == '\0') { - interp->result = "1"; - } else { - interp->result = "0"; - } } else { Tcl_AppendResult(interp, "usage: \"", argv[0], --- 654,659 ---- } } + Tcl_SetResult(interp, *p == '\0' ? "1" : "0", TCL_STATIC); } else { Tcl_AppendResult(interp, "usage: \"", argv[0], |