diff options
| author | das <das> | 2008-06-13 12:14:32 (GMT) |
|---|---|---|
| committer | das <das> | 2008-06-13 12:14:32 (GMT) |
| commit | 0902ec32fa7d4a63956c1fca776c54c828621ac7 (patch) | |
| tree | 8a2a570f9d5fd873258d9807d52ce883d5ecf0ea /generic/tclBasic.c | |
| parent | f7c3c0f0809266035acb3cdeaa624f903a3b0cf0 (diff) | |
| download | tcl-0902ec32fa7d4a63956c1fca776c54c828621ac7.zip tcl-0902ec32fa7d4a63956c1fca776c54c828621ac7.tar.gz tcl-0902ec32fa7d4a63956c1fca776c54c828621ac7.tar.bz2 | |
fix warning
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index d0aa8e2..6ce696a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -15,7 +15,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.302 2008/06/13 05:45:08 mistachkin Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.303 2008/06/13 12:14:32 das Exp $ */ #include "tclInt.h" @@ -3680,7 +3680,7 @@ Tcl_Canceled( int flags) { register Interp *iPtr = (Interp *) interp; - const char *id, *message; + const char *id, *message = NULL; int length; /* |