Tcl Source Code

Check-in [997703b388]
Login

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

Overview
Comment:bugfix in new Tcl_Preserve
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mig-alloc-reform
Files: files | file ages | folders
SHA1: 997703b3883cfc4aca6bcbb08e6802385a501433
User & Date: mig 2011-03-24 00:47:40
Context
2011-03-24
11:39
merge trunk check-in: 4bc0292a61 user: mig tags: mig-alloc-reform
00:47
bugfix in new Tcl_Preserve check-in: 997703b388 user: mig tags: mig-alloc-reform
2011-03-23
23:42
completely new Tcl_Preserve implementation under Zippy, should be *much* faster. Cost is loss of som... check-in: a39cc6c970 user: mig tags: mig-alloc-reform
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclAlloc.c.

1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
	    if (lastPtr) {
		lastPtr->nextPtr = thisPtr->nextPtr;
	    } else {
		pdataPtr = thisPtr->nextPtr;
	    }
	    Tcl_MutexUnlock(&preserveMutex);
	    
	    pdataPtr->freeProc(clientData);
	    TclSmallFree(pdataPtr);
	}
    }
}

/*
 *----------------------------------------------------------------------
 *







|
|







1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
	    if (lastPtr) {
		lastPtr->nextPtr = thisPtr->nextPtr;
	    } else {
		pdataPtr = thisPtr->nextPtr;
	    }
	    Tcl_MutexUnlock(&preserveMutex);
	    
	    thisPtr->freeProc(clientData);
	    TclSmallFree(thisPtr);
	}
    }
}

/*
 *----------------------------------------------------------------------
 *