Tcl Source Code

Check-in [83da1d215d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge pyk-tcltest-exit
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 83da1d215d8d102d705c59700d827910294072dcfeeea8b8a63760d5fc922adc
User & Date: pooryorick 2018-06-21 22:44:04.199
Context
2018-06-22
15:10
Add another suppress rule for valgrind, factor test code into tests/tcltests.tcl, and constrained a ... check-in: 4b77647298 user: pooryorick tags: core-8-6-branch
2018-06-21
22:44
merge pyk-tcltest-exit check-in: 83da1d215d user: pooryorick tags: core-8-6-branch
22:43
Fix function signature of TclThreadTestFinalize. Closed-Leaf check-in: b8061e5833 user: pooryorick tags: pyk-tcltest-exit
22:23
merge pyk-tcltest-exit check-in: 09af8379c8 user: pooryorick tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclInt.h.
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
 */

MODULE_SCOPE Tcl_PackageInitProc TclplatformtestInit;
MODULE_SCOPE Tcl_PackageInitProc TclObjTest_Init;
MODULE_SCOPE Tcl_PackageInitProc TclThread_Init;
MODULE_SCOPE Tcl_PackageInitProc Procbodytest_Init;
MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit;
MODULE_SCOPE void *TclThreadTestFinalize();

/*
 *----------------------------------------------------------------
 * Macro used by the Tcl core to check whether a pattern has any characters
 * special to [string match]. The ANSI C "prototype" for this macro is:
 *
 * MODULE_SCOPE int	TclMatchIsTrivial(const char *pattern);







|







4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
 */

MODULE_SCOPE Tcl_PackageInitProc TclplatformtestInit;
MODULE_SCOPE Tcl_PackageInitProc TclObjTest_Init;
MODULE_SCOPE Tcl_PackageInitProc TclThread_Init;
MODULE_SCOPE Tcl_PackageInitProc Procbodytest_Init;
MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit;
MODULE_SCOPE void TclThreadTestFinalize();

/*
 *----------------------------------------------------------------
 * Macro used by the Tcl core to check whether a pattern has any characters
 * special to [string match]. The ANSI C "prototype" for this macro is:
 *
 * MODULE_SCOPE int	TclMatchIsTrivial(const char *pattern);
Changes to generic/tclThreadTest.c.
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 --
 *