Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | let TclAllocMaximize maintain zippys stats |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | mig-alloc-reform |
| Files: | files | file ages | folders |
| SHA1: |
9cb2f836cbc887be1d48cbc15ff5acb6 |
| User & Date: | mig 2011-03-18 19:18:36 |
Context
|
2011-03-18
| ||
| 22:42 | move the allocator stuff to the end of tclInt.h, in order not to interfere with tclIntDecls.h check-in: cd2c0f98f9 user: mig tags: mig-alloc-reform | |
| 19:18 | let TclAllocMaximize maintain zippys stats check-in: 9cb2f836cb user: mig tags: mig-alloc-reform | |
| 18:57 | let TEBC also use TclAllocMaximize check-in: 248b0a0e0a user: mig tags: mig-alloc-reform | |
Changes
Changes to generic/tclAlloc.c.
| ︙ | ︙ | |||
873 874 875 876 877 878 879 |
}
oldSize = blockPtr->reqSize;
newSize = bucketInfo[bucket].blockSize - OFFSET - RCHECK;
blockPtr->reqSize = newSize;
#if RCHECK
((unsigned char *)(ptr))[newSize] = MAGIC;
| | > > > > > > > | 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 |
}
oldSize = blockPtr->reqSize;
newSize = bucketInfo[bucket].blockSize - OFFSET - RCHECK;
blockPtr->reqSize = newSize;
#if RCHECK
((unsigned char *)(ptr))[newSize] = MAGIC;
#endif
#ifdef ZIPPY_STATS
{
Cache *cachePtr;
GETCACHE(cachePtr);
cachePtr->buckets[bucket].totalAssigned += (newSize - oldSize);
}
#endif
return newSize;
}
#ifdef ZIPPY_STATS
/*
*----------------------------------------------------------------------
|
| ︙ | ︙ |