summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-07-16 20:50:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-07-16 20:50:53 (GMT)
commit5c9038b30eadc53a06bd92249b583ab15f71c1c7 (patch)
treeb5b2733030e6c8eea0ea745246839c42469ecc7c /unix
parent4ddce8d6445b7a711133a230e5c070aeb22f95de (diff)
downloadtcl-5c9038b30eadc53a06bd92249b583ab15f71c1c7.zip
tcl-5c9038b30eadc53a06bd92249b583ab15f71c1c7.tar.gz
tcl-5c9038b30eadc53a06bd92249b583ab15f71c1c7.tar.bz2
* generic/tclCmdIL.c: Removed unused variables.
* generic/tclCompile.c: * generic/tclVar.c: * unix/tclUnixChan.c: * generic/tclScan.c: Typo in ACCEPT_NAN configuration. * generic/tclStrToD.c: Set floating point control register on MIPS systems so that the gradual underflow expected by Tcl is in effect. [Bug 2819200]
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixChan.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index a915d5f..01d4005 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixChan.c,v 1.93.2.2 2009/04/10 20:46:21 das Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.93.2.3 2009/07/16 20:50:54 dgp Exp $
*/
#include "tclInt.h" /* Internal definitions for Tcl. */
@@ -2279,14 +2279,13 @@ CreateSocket(
* attempt to do an async connect. Otherwise
* do a synchronous connect or bind. */
{
- int status, sock, asyncConnect, curState, origState;
+ int status, sock, asyncConnect, curState;
struct sockaddr_in sockaddr; /* socket address */
struct sockaddr_in mysockaddr; /* Socket address for client */
TcpState *statePtr;
const char *errorMsg = NULL;
sock = -1;
- origState = 0;
if (!CreateSocketAddress(&sockaddr, host, port, 0, &errorMsg)) {
goto addressError;
}