diff options
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index b347018..ddf3818 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.158 2008/10/12 19:53:32 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.159 2008/10/15 06:17:04 nijtmans Exp $ */ #include "tclInt.h" @@ -441,7 +441,7 @@ static void EnterCmdWordIndex (ExtCmdLoc *eclPtr, Tcl_Obj* obj, * procedures that can be invoked by generic object code. */ -Tcl_ObjType tclByteCodeType = { +const Tcl_ObjType tclByteCodeType = { "bytecode", /* name */ FreeByteCodeInternalRep, /* freeIntRepProc */ DupByteCodeInternalRep, /* dupIntRepProc */ @@ -2147,7 +2147,7 @@ TclFindCompiledLocal( if (procPtr == NULL) { /* - * Compiling a non-body script: give it read access to the LVT in the + * Compiling a non-body script: give it read access to the LVT in the * current localCache */ @@ -2171,7 +2171,7 @@ TclFindCompiledLocal( } return -1; } - + if (name != NULL) { int localCt = procPtr->numCompiledLocals; |