diff options
| author | dgp@users.sourceforge.net <dgp> | 2002-01-26 01:10:08 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2002-01-26 01:10:08 (GMT) |
| commit | d217bb9391701a714b94a8c511a5b71554e5aaa6 (patch) | |
| tree | e98bf2d4819a5270b97f764736441c86b9eb51e3 /generic/tclThreadTest.c | |
| parent | e1f4440350e89527ac73db798c47bf5fcc88f848 (diff) | |
| download | tcl-d217bb9391701a714b94a8c511a5b71554e5aaa6.zip tcl-d217bb9391701a714b94a8c511a5b71554e5aaa6.tar.gz tcl-d217bb9391701a714b94a8c511a5b71554e5aaa6.tar.bz2 | |
* Sought out and eliminated instances of CONST-casting that are no
longer needed after the TIP 27 effort.
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index ef98e53..c830687 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.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: tclThreadTest.c,v 1.15 2002/01/25 20:40:56 dgp Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.16 2002/01/26 01:10:08 dgp Exp $ */ #include "tclInt.h" @@ -118,7 +118,7 @@ EXTERN int TclThread_Init _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_ThreadObjCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int TclCreateThread _ANSI_ARGS_((Tcl_Interp *interp, - CONST char *script, int joinable)); + char *script, int joinable)); EXTERN int TclThreadList _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int TclThreadSend _ANSI_ARGS_((Tcl_Interp *interp, Tcl_ThreadId id, char *script, int wait)); @@ -405,13 +405,13 @@ Tcl_ThreadObjCmd(dummy, interp, objc, objv) int TclCreateThread(interp, script, joinable) Tcl_Interp *interp; /* Current interpreter. */ - CONST char *script; /* Script to execute */ + char *script; /* Script to execute */ int joinable; /* Flag, joinable thread or not */ { ThreadCtrl ctrl; Tcl_ThreadId id; - ctrl.script = (char *) script; + ctrl.script = script; ctrl.condWait = NULL; ctrl.flags = 0; |