diff options
| author | hobbs <hobbs> | 2000-05-08 22:14:40 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-08 22:14:40 (GMT) |
| commit | 569c2c105d28b38e3abe79b47d3db46778b988dd (patch) | |
| tree | 7b0ac58887078d223a4f6ca354b13d7a86a2cfd0 /generic/tclIO.c | |
| parent | c00bcfc07587d60a89c06eb1145a62d5133919ae (diff) | |
| download | tcl-569c2c105d28b38e3abe79b47d3db46778b988dd.zip tcl-569c2c105d28b38e3abe79b47d3db46778b988dd.tar.gz tcl-569c2c105d28b38e3abe79b47d3db46778b988dd.tar.bz2 | |
lint chan = NULL init
Diffstat (limited to 'generic/tclIO.c')
| -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. */ |