Differences From Artifact [cc9e33a244]:

• File generic/tclThreadTest.c — part of check-in [6f650b4271] at 2018-06-21 22:21:31 on branch pyk-tcltest-exit — Add custom exit procedure for tcltests executable. (user: pooryorick size: 31418) [more...]

To Artifact [ec81e7dd49]:

• File generic/tclThreadTest.c — part of check-in [b8061e5833] at 2018-06-21 22:43:18 on branch pyk-tcltest-exit — Fix function signature of TclThreadTestFinalize. (user: pooryorick size: 31428) [more...]

172
173
174
175
176
177
178
179
180
181
182
183

184
185
186
187
188
189
190

    Tcl_MutexUnlock(&threadMutex);

    Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL);
    return TCL_OK;
}


void * TclThreadTestFinalize() {
    if (errorProcString != NULL) {
	ckfree(errorProcString);
	errorProcString= NULL;
    }

}

/*
 *----------------------------------------------------------------------
 *
 * ThreadObjCmd --
 *

|




>

172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191

    Tcl_MutexUnlock(&threadMutex);

    Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL);
    return TCL_OK;
}


void TclThreadTestFinalize() {
    if (errorProcString != NULL) {
	ckfree(errorProcString);
	errorProcString= NULL;
    }
    return;
}

/*
 *----------------------------------------------------------------------
 *
 * ThreadObjCmd --
 *