diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-26 14:23:09 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-26 14:23:09 (GMT) |
| commit | 557e227172be4b39d2db93e50b3aa9df96fcbb97 (patch) | |
| tree | 64709a83dd977415b9b1ad593207d16f4b45db3c /generic/tclTimer.c | |
| parent | 368d2d623f802dda05805c7e8c1d147a74018998 (diff) | |
| download | tcl-557e227172be4b39d2db93e50b3aa9df96fcbb97.zip tcl-557e227172be4b39d2db93e50b3aa9df96fcbb97.tar.gz tcl-557e227172be4b39d2db93e50b3aa9df96fcbb97.tar.bz2 | |
Now builds on Solaris8/SPARC with both SunPro CC *and* GCC.
Diffstat (limited to 'generic/tclTimer.c')
| -rw-r--r-- | generic/tclTimer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index 601757d..e835c11 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTimer.c,v 1.3.26.1 2001/09/25 16:49:56 dkf Exp $ + * RCS: @(#) $Id: tclTimer.c,v 1.3.26.2 2001/09/26 14:23:10 dkf Exp $ */ #include "tclInt.h" @@ -1031,7 +1031,7 @@ AfterProc(clientData) interp = assocPtr->interp; Tcl_Preserve((ClientData) interp); script = Tcl_GetStringFromObj(afterPtr->commandPtr, &numBytes); - result = Tcl_EvalEx(interp, script, numBytes, TCL_EVAL_GLOBAL); + result = Tcl_EvalEx(interp, script, (int)numBytes, TCL_EVAL_GLOBAL); if (result != TCL_OK) { Tcl_AddErrorInfo(interp, "\n (\"after\" script)"); Tcl_BackgroundError(interp); |