diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-08-26 02:25:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-08-26 02:25:47 (GMT) |
| commit | cd0b1e67a2c3e8b74aa134359931b2ad464f8caf (patch) | |
| tree | a16f969fd3dc7baeeea494aa868774c883eb02bf /generic | |
| parent | 693e2562ad129216f04dfddc12c1e3ad7a01e137 (diff) | |
| download | tcl-cd0b1e67a2c3e8b74aa134359931b2ad464f8caf.zip tcl-cd0b1e67a2c3e8b74aa134359931b2ad464f8caf.tar.gz tcl-cd0b1e67a2c3e8b74aa134359931b2ad464f8caf.tar.bz2 | |
silence compiler warnings
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 4 | ||||
| -rw-r--r-- | generic/tclCompile.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 715af1b..1231dd7 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -14,7 +14,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.75.2.37 2009/08/25 20:59:10 andreas_kupries Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.75.2.38 2009/08/26 02:25:47 dgp Exp $ */ #include "tclInt.h" @@ -3592,7 +3592,7 @@ EvalTokensStandard(interp, tokenPtr, count, line, clNextOuter, outerScript) #ifdef TCL_TIP280 #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; #endif diff --git a/generic/tclCompile.c b/generic/tclCompile.c index aa25f26..74688bd 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.43.2.16 2009/08/25 20:59:10 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.43.2.17 2009/08/26 02:25:47 dgp Exp $ */ #include "tclInt.h" @@ -1499,7 +1499,7 @@ TclCompileTokens(interp, tokenPtr, count, envPtr) #ifdef TCL_TIP280 #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 |