summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-06-08 19:45:26 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-06-08 19:45:26 (GMT)
commit0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f (patch)
tree3a925c5b39d8a20b517f50be0540f4bb4a4927b8
parentfaa888909bd49161d8a859316cb28d813cc9f1d7 (diff)
downloadtcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.zip
tcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.tar.gz
tcl-0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f.tar.bz2
* generic/tclCompile.c: handle warning [Bug 969066]
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclCompile.c8
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 <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);
}