Differences From Artifact [27cb36f361]:

• Executable file generic/tclThreadAlloc.c — part of check-in [5314e617b9] at 2011-03-13 05:46:22 on branch mig-alloc-reform — redefine TclInterpAlloc/Free to use zippy Tcl_Alloc infrastructure; will be very fast on zippy, not so much with other allocators (user: mig size: 23812)

To Artifact [6b6e988778]:

• Executable file generic/tclThreadAlloc.c — part of check-in [50502adb40] at 2011-03-14 16:48:55 on branch mig-alloc-reform — optimise freeing in TclAttemptRealloc (user: mig size: 23822)

572
573
574
575
576
577
578
579
580
581
582
583
584
585
586

    newPtr = TclAttemptAlloc(cachePtr, reqSize);
    if (newPtr != NULL) {
	if (reqSize > blockPtr->blockReqSize) {
	    reqSize = blockPtr->blockReqSize;
	}
	memcpy(newPtr, ptr, reqSize);
	Tcl_Free(ptr);
    }
    return newPtr;
}

/*
 *----------------------------------------------------------------------
 *

|

572
573
574
575
576
577
578
579
580
581
582
583
584
585
586

    newPtr = TclAttemptAlloc(cachePtr, reqSize);
    if (newPtr != NULL) {
	if (reqSize > blockPtr->blockReqSize) {
	    reqSize = blockPtr->blockReqSize;
	}
	memcpy(newPtr, ptr, reqSize);
	TclFree(vcachePtr, ptr);
    }
    return newPtr;
}

/*
 *----------------------------------------------------------------------
 *