diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-06-08 19:45:26 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-06-08 19:45:26 (GMT) |
| commit | 0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f (patch) | |
| tree | 3a925c5b39d8a20b517f50be0540f4bb4a4927b8 | |
| parent | faa888909bd49161d8a859316cb28d813cc9f1d7 (diff) | |
| download | tcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.zip tcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.tar.gz tcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.tar.bz2 | |
* generic/tclCompile.c: handle warning [Bug 969066]
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclCompile.c | 8 |
2 files changed, 10 insertions, 2 deletions
@@ -1,3 +1,7 @@ +2004-06-08 Miguel Sofer <msofer@users.sf.net> + + * generic/tclCompile.c: handle warning [Bug 969066] + 2004-06-05 Kevin B. Kenny <kennykb@acm.org> * generic/tcl.h: Corrected Tcl_WideInt declarations so that the mingw 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); } |