diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-03-13 09:31:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-03-13 09:31:37 (GMT) |
| commit | 3eac215c3bf3020dfdf73a7eda2683887b6a6f56 (patch) | |
| tree | 60c2b2e4124409809fb0671a552b3bad5d32a57c /generic/tclExecute.c | |
| parent | 428c6a634462450a66c1164a1cd99517045ff643 (diff) | |
| download | tcl-3eac215c3bf3020dfdf73a7eda2683887b6a6f56.zip tcl-3eac215c3bf3020dfdf73a7eda2683887b6a6f56.tar.gz tcl-3eac215c3bf3020dfdf73a7eda2683887b6a6f56.tar.bz2 | |
Added some casts to ClientData that are apparently needed on some
architectures for a clean compile.
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 |