diff options
| -rw-r--r-- | generic/tclCompile.c | 6 | ||||
| -rw-r--r-- | generic/tclExecute.c | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 2683cd2..1ebf404 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.101 2006/11/28 22:20:28 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.102 2006/12/01 06:06:01 das Exp $ */ #include "tclInt.h" @@ -1281,8 +1281,8 @@ TclCompileScript( TclMarkList (interp, start, end, &(exp [wordIdx]), - &(expLen [wordIdx]), - &(expItem [wordIdx])); + (CONST int**)&(expLen [wordIdx]), + (CONST char ***)&(expItem [wordIdx])); eliterals += exp [wordIdx] ? exp[wordIdx] : 1; diff --git a/generic/tclExecute.c b/generic/tclExecute.c index d2d802a..c8c94ac 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.254 2006/11/28 22:20:28 andreas_kupries Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.255 2006/12/01 06:06:01 das Exp $ */ #include "tclInt.h" @@ -1827,7 +1827,7 @@ TclExecuteByteCode( * 'TclGetSrcInfoForPc', and push the frame. */ - bcFrame.data.tebc.pc = pc; + bcFrame.data.tebc.pc = (char*)pc; iPtr->cmdFramePtr = &bcFrame; DECACHE_STACK_INFO(); /*Tcl_ResetResult(interp);*/ @@ -6460,7 +6460,7 @@ TclGetSrcInfoForPc (cfPtr) ByteCode* codePtr = (ByteCode*) cfPtr->data.tebc.codePtr; if (cfPtr->cmd.str.cmd == NULL) { - cfPtr->cmd.str.cmd = GetSrcInfoForPc((char*) cfPtr->data.tebc.pc, + cfPtr->cmd.str.cmd = GetSrcInfoForPc((unsigned char*) cfPtr->data.tebc.pc, codePtr, &cfPtr->cmd.str.len); } |