diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-11-11 20:26:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-11-11 20:26:44 (GMT) |
| commit | d28b289d710a1d4b1a8cf5b8cb6a3794f8ebc1ac (patch) | |
| tree | 8a8f70f25d3ec9a7245b2f9f4a375adf8b548571 /generic/tclThreadTest.c | |
| parent | 4ab16b8c5a1ba8f83f8541dc717947711d9c802d (diff) | |
| download | tcl-d28b289d710a1d4b1a8cf5b8cb6a3794f8ebc1ac.zip tcl-d28b289d710a1d4b1a8cf5b8cb6a3794f8ebc1ac.tar.gz tcl-d28b289d710a1d4b1a8cf5b8cb6a3794f8ebc1ac.tar.bz2 | |
Use many many more ObjProc's in test code: we should give a good example here
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 b34df65..52493c1 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -121,7 +121,7 @@ static char *errorProcString; TCL_DECLARE_MUTEX(threadMutex) -static Tcl_ObjCmdProc ThreadObjCmd; +static Tcl_ObjCmdProc ThreadCmd; static int ThreadCreate(Tcl_Interp *interp, const char *script, int joinable); static int ThreadList(Tcl_Interp *interp); @@ -171,14 +171,14 @@ TclThread_Init( } Tcl_MutexUnlock(&threadMutex); - Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "testthread", ThreadCmd, NULL, NULL); return TCL_OK; } /* *---------------------------------------------------------------------- * - * ThreadObjCmd -- + * ThreadCmd -- * * This procedure is invoked to process the "testthread" Tcl command. See * the user documentation for details on what it does. @@ -204,7 +204,7 @@ TclThread_Init( */ static int -ThreadObjCmd( +ThreadCmd( TCL_UNUSED(void *), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ |