diff options
| author | dkf <dkf@noemail.net> | 2001-03-13 09:31:37 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-03-13 09:31:37 (GMT) |
| commit | 0cac1a3e8afce3bd80cbfb4213952022acbe9b2c (patch) | |
| tree | 60c2b2e4124409809fb0671a552b3bad5d32a57c /generic/tclExecute.c | |
| parent | f868185d0414a0dd70bfea37e0e6cbe4a7f12482 (diff) | |
| download | tcl-0cac1a3e8afce3bd80cbfb4213952022acbe9b2c.zip tcl-0cac1a3e8afce3bd80cbfb4213952022acbe9b2c.tar.gz tcl-0cac1a3e8afce3bd80cbfb4213952022acbe9b2c.tar.bz2 | |
Added some casts to ClientData that are apparently needed on some
architectures for a clean compile.
FossilOrigin-Name: 301179c6d8edc5b6ff3f99e809741a556af9575a
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 10 |
1 files changed, 5 insertions, 5 deletions
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 |