diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tclExecute.c | 10 |
2 files changed, 11 insertions, 5 deletions
@@ -1,3 +1,9 @@ +2001-03-13 Donal K. Fellows <fellowsd@cs.man.ac.uk> + + * generic/tclExecute.c (TclDeleteExecEnv, GrowEvaluationStack, + TclExecuteByteCode): Added some casts to ClientData that are + apparently needed on some architectures. + 2001-03-12 Donal K. Fellows <fellowsd@cs.man.ac.uk> * tests/string.test: Fixed some test numberings and added a test. diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 156c4b1..2bd71f9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -10,7 +10,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.19 2001/03/02 15:31:15 dkf Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.20 2001/03/13 09:31:37 dkf Exp $ */ #include "tclInt.h" @@ -438,7 +438,7 @@ void TclDeleteExecEnv(eePtr) ExecEnv *eePtr; /* Execution environment to free. */ { - Tcl_EventuallyFree(eePtr->stackPtr, TCL_DYNAMIC); + Tcl_EventuallyFree((ClientData)eePtr->stackPtr, TCL_DYNAMIC); ckfree((char *) eePtr); } @@ -508,7 +508,7 @@ GrowEvaluationStack(eePtr) memcpy((VOID *) newStackPtr, (VOID *) eePtr->stackPtr, (size_t) currBytes); - Tcl_EventuallyFree(eePtr->stackPtr, TCL_DYNAMIC); + Tcl_EventuallyFree((ClientData)eePtr->stackPtr, TCL_DYNAMIC); eePtr->stackPtr = newStackPtr; eePtr->stackEnd = (newElems - 1); /* i.e. index of last usable item */ } @@ -810,7 +810,7 @@ TclExecuteByteCode(interp, codePtr) * trace procedures. */ - Tcl_Preserve(stackPtr); + Tcl_Preserve((ClientData)stackPtr); preservedStack = stackPtr; /* @@ -884,7 +884,7 @@ TclExecuteByteCode(interp, codePtr) * going to be used from now on. */ - Tcl_Release(preservedStack); + Tcl_Release((ClientData)preservedStack); /* * If the interpreter has a non-empty string result, the |