From 0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Tue, 8 Jun 2004 19:45:26 +0000 Subject: * generic/tclCompile.c: handle warning [Bug 969066] --- ChangeLog | 4 ++++ generic/tclCompile.c | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9ee7b7f..69be47e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-06-08 Miguel Sofer + + * generic/tclCompile.c: handle warning [Bug 969066] + 2004-06-05 Kevin B. Kenny * 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); } -- cgit v0.12