diff options
| author | das <das> | 2009-08-25 23:20:36 (GMT) |
|---|---|---|
| committer | das <das> | 2009-08-25 23:20:36 (GMT) |
| commit | 9302cb822e80f3566365632db5bdbb88469866e1 (patch) | |
| tree | c470285c17686749c683d27c337e599d18b2dcfa /generic | |
| parent | 130082d57a8eecf64d27adcb53065841cffae765 (diff) | |
| download | tcl-9302cb822e80f3566365632db5bdbb88469866e1.zip tcl-9302cb822e80f3566365632db5bdbb88469866e1.tar.gz tcl-9302cb822e80f3566365632db5bdbb88469866e1.tar.bz2 | |
fix warnings
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompile.c | 4 | ||||
| -rw-r--r-- | generic/tclParse.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index a0ac9d3..970c1ef 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.171 2009/08/25 21:03:25 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.172 2009/08/25 23:20:36 das Exp $ */ #include "tclInt.h" @@ -1691,7 +1691,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 69cc830..aca6048 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -2167,7 +2167,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; |