diff options
| author | hobbs <hobbs@noemail.net> | 2000-05-08 22:14:40 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-05-08 22:14:40 (GMT) |
| commit | 65889231f29b9be6e4089b2c7b1509b7319f1d91 (patch) | |
| tree | 7b0ac58887078d223a4f6ca354b13d7a86a2cfd0 | |
| parent | d82020da83cafa45be8a1030ae1ab6a05b630d48 (diff) | |
| download | tcl-65889231f29b9be6e4089b2c7b1509b7319f1d91.zip tcl-65889231f29b9be6e4089b2c7b1509b7319f1d91.tar.gz tcl-65889231f29b9be6e4089b2c7b1509b7319f1d91.tar.bz2 | |
lint chan = NULL init
FossilOrigin-Name: 8f82990764c6cae9dcde6441fadf549e91231b40
| -rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 0fe8f05..890470a 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.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: tclIO.c,v 1.21 2000/05/02 22:02:34 kupries Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.22 2000/05/08 22:14:40 hobbs Exp $ */ #include "tclInt.h" @@ -7017,7 +7017,7 @@ TclTestChannelCmd(clientData, interp, argc, argv) Tcl_HashSearch hSearch; /* Search variable. */ Tcl_HashEntry *hPtr; /* Search variable. */ Channel *chanPtr; /* The actual channel. */ - Tcl_Channel chan; /* The opaque type. */ + Tcl_Channel chan = NULL; /* The opaque type. */ size_t len; /* Length of subcommand string. */ int IOQueued; /* How much IO is queued inside channel? */ ChannelBuffer *bufPtr; /* For iterating over queued IO. */ |