diff options
author | msofer <msofer@noemail.net> | 2004-06-08 19:45:26 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2004-06-08 19:45:26 (GMT) |
commit | 1c7aadeaa8c298de2c2048f99b9ed8e7386d3999 (patch) | |
tree | 3a925c5b39d8a20b517f50be0540f4bb4a4927b8 /generic/tclCompile.c | |
parent | 3f438939ac0d56fea86e41487bc7c3d8ddcc08e3 (diff) | |
download | tcl-1c7aadeaa8c298de2c2048f99b9ed8e7386d3999.zip tcl-1c7aadeaa8c298de2c2048f99b9ed8e7386d3999.tar.gz tcl-1c7aadeaa8c298de2c2048f99b9ed8e7386d3999.tar.bz2 |
* generic/tclCompile.c: handle warning [Bug 969066]
FossilOrigin-Name: 27198a2f13d8a0d0004be6b13fe5b643435e9b6f
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index b1bd38e..88f029c 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.5 2004/03/29 02:17:59 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.43.2.6 2004/06/08 19:45:26 msofer Exp $ */ #include "tclInt.h" @@ -1545,7 +1545,9 @@ TclInitByteCodeObj(objPtr, envPtr) size_t codeBytes, objArrayBytes, exceptArrayBytes, cmdLocBytes; size_t auxDataArrayBytes, structureSize; register unsigned char *p; +#ifdef TCL_COMPILE_DEBUG unsigned char *nextPtr; +#endif int numLitObjects = envPtr->literalArrayNext; Namespace *namespacePtr; int i; @@ -1626,8 +1628,10 @@ TclInitByteCodeObj(objPtr, envPtr) } p += auxDataArrayBytes; +#ifndef TCL_COMPILE_DEBUG + EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p); +#else nextPtr = EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p); -#ifdef TCL_COMPILE_DEBUG if (((size_t)(nextPtr - p)) != cmdLocBytes) { panic("TclInitByteCodeObj: encoded cmd location bytes %d != expected size %d\n", (nextPtr - p), cmdLocBytes); } |