diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-08-26 02:26:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-08-26 02:26:14 (GMT) |
| commit | 1f43e831d1b9917d0b7c0ee030f1d2112af36ea6 (patch) | |
| tree | 1e048a29edcffb17b7c64b5ebc93fe48a3b089e4 | |
| parent | b323d4f47679f5fc047d6397a0c87f0768de644c (diff) | |
| download | tcl-1f43e831d1b9917d0b7c0ee030f1d2112af36ea6.zip tcl-1f43e831d1b9917d0b7c0ee030f1d2112af36ea6.tar.gz tcl-1f43e831d1b9917d0b7c0ee030f1d2112af36ea6.tar.bz2 | |
silence compiler warnings
| -rw-r--r-- | generic/tclCompile.c | 4 | ||||
| -rw-r--r-- | generic/tclParse.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 403e487..5f4a5a2 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.146.2.11 2009/08/25 21:01:05 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.146.2.12 2009/08/26 02:26:14 dgp Exp $ */ #include "tclInt.h" @@ -1657,7 +1657,7 @@ TclCompileTokens( unsigned char *entryCodeNext = envPtr->codeNext; #define NUM_STATIC_POS 20 int isLiteral, maxNumCL, numCL; - int* clPosition; + int* clPosition = NULL; /* * For the handling of continuation lines in literals we first check if diff --git a/generic/tclParse.c b/generic/tclParse.c index 3946511..b317910 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParse.c,v 1.62.2.3 2009/08/25 21:01:05 andreas_kupries Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.62.2.4 2009/08/26 02:26:14 dgp Exp $ */ #include "tclInt.h" @@ -2168,7 +2168,7 @@ TclSubstTokens( int code = TCL_OK; #define NUM_STATIC_POS 20 int isLiteral, maxNumCL, numCL, i, adjust; - int* clPosition; + int* clPosition = NULL; Interp* iPtr = (Interp*) interp; int inFile = iPtr->evalFlags & TCL_EVAL_FILE; |