diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-15 15:42:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-15 15:42:52 (GMT) |
| commit | 0821784e04e2aa7a2582947073659cde9e421abd (patch) | |
| tree | 21c335966db4ce17ce272e0fc692d6987bb6f22d /generic/tclBasic.c | |
| parent | 0eb70513827981212a928f0a5b63afb70c53c960 (diff) | |
| download | tcl-0821784e04e2aa7a2582947073659cde9e421abd.zip tcl-0821784e04e2aa7a2582947073659cde9e421abd.tar.gz tcl-0821784e04e2aa7a2582947073659cde9e421abd.tar.bz2 | |
Remove unused variable
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 8891f52..69a2453 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.126 2004/10/15 04:01:27 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.127 2004/10/15 15:42:52 dgp Exp $ */ #include "tclInt.h" @@ -4457,7 +4457,6 @@ Tcl_AddObjErrorInfo(interp, message, length) * NULL byte. */ { register Interp *iPtr = (Interp *) interp; - Tcl_Obj *messagePtr; /* * If we are just starting to log an error, errorInfo is initialized |