diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-07 00:24:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-07 00:24:49 (GMT) |
| commit | 9e1d3cb84aaf7f54ecfa095f78c193fe5f1c514d (patch) | |
| tree | 60ddd8d940883267c3309cc3c5242a66ce248f21 /generic/tclIOCmd.c | |
| parent | a9197abf6da5d9cd058ca2c0fa091b4fbf02b848 (diff) | |
| download | tcl-9e1d3cb84aaf7f54ecfa095f78c193fe5f1c514d.zip tcl-9e1d3cb84aaf7f54ecfa095f78c193fe5f1c514d.tar.gz tcl-9e1d3cb84aaf7f54ecfa095f78c193fe5f1c514d.tar.bz2 | |
remove unused var
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 73af20a..732b162 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOCmd.c,v 1.21 2004/10/06 15:59:24 dgp Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.22 2004/10/07 00:24:49 dgp Exp $ */ #include "tclInt.h" @@ -227,7 +227,7 @@ Tcl_GetsObjCmd(dummy, interp, objc, objv) int lineLen; /* Length of line just read. */ int mode; /* Mode in which channel is opened. */ char *name; - Tcl_Obj *resultPtr, *linePtr; + Tcl_Obj *linePtr; if ((objc != 2) && (objc != 3)) { Tcl_WrongNumArgs(interp, 1, objv, "channelId ?varName?"); |