Tcl Source Code

Check-in [57c67c7ee6]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:remove unused var
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mig-alloc-reform | mig-alloc-reform-Z2
Files: files | file ages | folders
SHA1: 57c67c7ee608d9bd96277fa3a2fd6fa531f68add
User & Date: mig 2013-01-03 11:47:09
Context
2013-01-04
02:05
merge trunk check-in: effc9f8ca4 user: mig tags: mig-alloc-reform
2013-01-03
11:59
merge mig-alloc-reform check-in: fe20502465 user: mig tags: mig-strip-brutal
11:47
remove unused var check-in: 57c67c7ee6 user: mig tags: mig-alloc-reform, mig-alloc-reform-Z2
11:45
merge trunk check-in: c711be5b6a user: mig tags: mig-alloc-reform
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclAlloc.c.

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
#if defined(TCL_THREADS)
void
TclFreeAllocCache(
    void *arg)
{
    Cache *cachePtr = arg;
    Cache **nextPtrPtr;
    
    /*
     * Flush objs.
     */

    if (cachePtr->numObjects > 0) {
	Tcl_MutexLock(objLockPtr);






<







234
235
236
237
238
239
240

241
242
243
244
245
246
247
#if defined(TCL_THREADS)
void
TclFreeAllocCache(
    void *arg)
{
    Cache *cachePtr = arg;

    
    /*
     * Flush objs.
     */

    if (cachePtr->numObjects > 0) {
	Tcl_MutexLock(objLockPtr);